Shiny modules included in castarter

library(castarter)
# remotes::install_github("giocomai/tifkremlinen")

[#TODO]

Time series

Dygraphs

count_df <- castarter::cas_count(
  corpus = tifkremlinen::kremlin_en,
  string = c("syria", "ukraine")
) %>%
  cas_summarise(before = 45, after = 45)

cass_show_ts_dygraph_app(count_df)

Barchart

count_df <- castarter::cas_count(
  corpus = tifkremlinen::kremlin_en,
  string = c("putin", "medvedev")
) %>%
  cas_summarise(period = "year", auto_convert = TRUE)

base_gg <- cas_show_gg_base(count_df = count_df)

base_gg %>%
  cas_show_barchart_ggiraph()