if(FALSE){
message('Please choose the epitweetr data directory')
setup_config(file.choose())
# Getting all country tweets between 2020-jan-10 and 2020-jan-31 for all topics
df <- get_aggregates(
dataset = "country_counts",
filter = list(period = c("2020-01-10", "2020-01-31"))
)
# Getting all country tweets for the topic dengue
df <- get_aggregates(dataset = "country_counts", filter = list(topic = "dengue"))
# Getting all country tweets between 2020-jan-10 and 2020-jan-31 for the topic dengue
df <- get_aggregates(
dataset = "country_counts",
filter = list(topic = "dengue", period = c("2020-01-10", "2020-01-31"))
)
}
Run the code above in your browser using DataLab