Nothing
# Get path of search files (written by search loop)
get_search_path <- function() file.path(conf$data_dir, "tweets", "search")
# Get path of geolocated files (written by detect loop)
get_geo_path <- function() file.path(conf$data_dir, "tweets", "geolocated")
# Get path of search files (written by search loop)
get_search_archive_path <- function() file.path(conf$data_dir, "tweets", "search_archive")
# Get path of properties files (written by Shiny app)
get_properties_path <- function() file.path(conf$data_dir, "properties.json")
# Get path of properties files (written by search loop)
get_plans_path <- function() file.path(conf$data_dir, "topics.json")
# Get task path (written by detect pipeline)
get_tasks_path <- function() file.path(conf$data_dir, "tasks.json")
# Get available alert training file path
get_alert_training_path <- function() {
path <- get_user_alert_training_path()
if(!file.exists(path))
path <- get_default_alert_training_path()
path
}
# Get default alert training file path
get_default_alert_training_path <- function() system.file("extdata", "alert-training.xlsx", package = get_package_name())
# Get user alert training file
get_user_alert_training_path <- function() {
paste(conf$data_dir, "alert-training.xlsx", sep = "/")
}
# Get available geotraining file path
get_geotraining_path <- function() {
path <- get_user_geotraining_path()
if(!file.exists(path))
path <- get_default_geotraining_path()
path
}
# Get default languages file path
get_default_geotraining_path <- function() system.file("extdata", "geo-training.xlsx", package = get_package_name())
# Get user geo training file
get_user_geotraining_path <- function() {
paste(conf$data_dir, "geo-training.xlsx", sep = "/")
}
# Get geo training evaluation file
get_geotraining_evaluation_path <- function() {
paste(conf$data_dir, "geo-training-evaluation.json", sep = "/")
}
# Get default languages file path
get_default_available_languages_path <- function() system.file("extdata", "languages.xlsx", package = get_package_name())
# Get available languages file path (written by Shiny app)
get_available_languages_path <- function() {
path <- paste(conf$data_dir, "languages.xlsx", sep = "/")
if(!file.exists(path))
path <- get_default_available_languages_path()
path
}
# Get default topics file path
get_default_known_users_path <- function() system.file("extdata", "users.xlsx", package = get_package_name())
# Get topics file path either from user or package location (written by Shiny app)
get_known_users_path <- function(data_dir = conf$data_dir) {
users_path <- paste(data_dir, "users.xlsx", sep = "/")
if(!file.exists(users_path))
users_path <- get_default_known_users_path()
return(users_path)
}
# Get default topics files path
get_default_topics_path <- function() system.file("extdata", "topics.xlsx", package = get_package_name())
# Get topics file path either from user or package location (written by Shiny app)
get_topics_path <- function(data_dir = conf$data_dir) {
topics_path <- paste(data_dir, "topics.xlsx", sep = "/")
if(!file.exists(topics_path))
topics_path <- get_default_topics_path()
return(topics_path)
}
# Get default country files path
get_default_countries_path <- function() system.file("extdata", "countries.xlsx", package = get_package_name())
# Get countries file path either from user or package location (written by Shiny app)
get_countries_path <- function(data_dir = conf$data_dir) {
countries_path <- paste(data_dir, "countries.xlsx", sep = "/")
if(!file.exists(countries_path))
countries_path <- get_default_countries_path()
return(countries_path)
}
# Get default subscribers file path
get_default_subscribers_path <- function() system.file("extdata", "subscribers.xlsx", package = get_package_name())
# Get the path for default or user defined subscribed user file (written by Shiny app)
get_subscribers_path <- function() {
path <- paste(conf$data_dir, "subscribers.xlsx", sep = "/")
if(!file.exists(path))
path <- get_default_subscribers_path()
path
}
# Get email template path
get_email_alert_template_path <- function() system.file("extdata", "mail.html", package = get_package_name())
# Get Scala Building Tools (SBT) dependencies file
get_sbt_file_dep_path <- function() system.file("extdata", "sbt-deps.txt", package = get_package_name())
# Get JAR directory
get_jars_dest_path <- function() file.path(conf$data_dir, "jars")
# Get application JAR (embedded on package)
get_app_jar_path <- function() system.file("java", "ecdc-twitter-bundle_2.12-1.0.jar", package = get_package_name())
# Get hadoop home path for winutils
get_winutils_hadoop_home_path <- function() file.path(conf$data_dir, "hadoop")
# Get winutils path
get_winutils_path <- function() file.path(get_winutils_hadoop_home_path(), "bin", "winutils.exe")
# Get JSON file name for alert on given date
get_alert_file <- function(date) {
alert_folder <- file.path(conf$data_dir, "alerts")
if(!file.exists(alert_folder)) dir.create(alert_folder)
alert_folder <- file.path(alert_folder, strftime(date, format="%Y"))
if(!file.exists(alert_folder)) dir.create(alert_folder)
alert_file <- file.path(alert_folder, paste(strftime(date, format="%Y.%m.%d"), "-alerts.json", sep = ""))
}
# Get geonames txt file
get_geonames_txt_path <- function() {
file.path(conf$data_dir, "geo", "allCountries.txt")
}
# Get geonames parquet path
get_geonames_parquet_path <- function(relative = FALSE) {
if(!relative)
file.path(conf$data_dir, "geo", "all-geos.parquet")
else
file.path("geo", "all-geos.parquet")
}
# Get geonames parquet path
get_cities_parquet_path <- function(relative = FALSE) {
if(!relative)
file.path(conf$data_dir, "geo", "all-cities.parquet")
else
file.path("geo", "all-cities.parquet")
}
# Get geonames index path
get_geonames_index_path <- function(relative = FALSE) {
if(!relative)
file.path(conf$data_dir, "geo", "all-geos.parquet.index")
else
file.path("geo", "all-geos.parquet.index")
}
# Get geonames index path
get_geonames_index_path <- function(relative = FALSE) {
if(!relative)
file.path(conf$data_dir, "geo", "all-geos.parquet.index")
else
file.path("geo", "all-geos.parquet.index")
}
get_topic_keywords_path <- function() {
geo_folder <- file.path(conf$data_dir, "geo")
if(!file.exists(geo_folder)) dir.create(geo_folder)
file.path(geo_folder, "topic-keywords.json")
}
get_forced_geo_path <- function() {
file.path(conf$data_dir, "geo", "forced-geo.json")
}
get_forced_geo_codes_path <- function() {
file.path(conf$data_dir, "geo", "forced-geo-codes.json")
}
# Get languages index path
get_lang_index_path <- function(relative = FALSE) {
if(!relative)
file.path(conf$data_dir, "geo", "lang_vectors.index")
else
file.path("geo", "lang_vectors.index")
}
# Get language vectors path
get_lang_vectors_path <- function(code) {
file.path(conf$data_dir, "languages", paste(code, ".txt.gz", sep = ""))
}
# Get language model path
get_lang_model_path <- function(code) {
file.path(conf$data_dir, "languages", paste(code, ".txt.gz.model", sep = ""))
}
# Get language model stamp
get_lang_stamp_path <- function(code) {
file.path(conf$data_dir, "languages", paste(code, ".txt.gz.stamp", sep = ""))
}
# Get tweet collection path
get_tweet_togeo_path <- function() {
file.path(conf$data_dir, "geo", "togeolocate.json")
}
get_tweet_geoing_path <- function() {
file.path(conf$data_dir, "geo", "geolocating.json")
}
get_tweet_toaggr_path <- function() {
file.path(conf$data_dir, "geo", "toaggregate.json")
}
get_tweet_aggring_path <- function() {
file.path(conf$data_dir, "geo", "aggregating.json")
}
get_session_info_path <- function() {
file.path(conf$data_dir, "session-info.log")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.