knitr::opts_chunk$set( collapse = TRUE, comment = "#>", eval = FALSE )
library(castarter) # remotes::install_github("giocomai/tifkremlinen")
[#TODO]
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)
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()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.