### Script for generating data files containing queries and links for APIs
read_file_trim <- function(filename) {
stringr::str_trim(readr::read_file(filename))
}
SX_ESA_1_DATES_QUERY <- read_file_trim("sx-esa-1-dates.json")
SX_ESA_1_1_QUERY <- read_file_trim("sx-esa-1-1.json")
SX_ESA_1_2_QUERY <- read_file_trim("sx-esa-1-2.json")
SX_ESA_2_DATES_QUERY <- read_file_trim("sx-esa-2-dates.json")
SX_ESA_2_QUERY <- read_file_trim("sx-esa-2.json")
SX_HB_1_DATES_QUERY <- read_file_trim("sx-hb-1-dates.json")
SX_HB_1_1_QUERY <- read_file_trim("sx-hb-1-1.json")
SX_HB_1_2_QUERY <- read_file_trim("sx-hb-1-2.json")
SX_HB_2_DATES_QUERY <- read_file_trim("sx-hb-2-dates.json")
SX_HB_2_QUERY <- read_file_trim("sx-hb-2.json")
SX_UCP_DATES_QUERY <- read_file_trim("sx-ucp-dates.json")
SX_UCP_QUERY <- read_file_trim("sx-ucp.json")
SX_UCH_DATES_QUERY <- read_file_trim("sx-uch-dates.json")
SX_UCH_QUERY <- read_file_trim("sx-uch.json")
SX_IS_DATES_QUERY <- read_file_trim("sx-is-dates.json")
SX_IS_QUERY <- read_file_trim("sx-is.json")
SX_JSA_DATES_QUERY <- read_file_trim("sx-jsa-dates.json")
SX_JSA_QUERY <- read_file_trim("sx-jsa.json")
GEOGRAPHY_GID_LOOKUP <- readr::read_csv(
"geography-gid-lookup.csv",
col_types = readr::cols(
geography = readr::col_character(),
gid = readr::col_character()))
GID_GEOGRAPHY_LOOKUP <- readr::read_csv(
"geography-gid-lookup.csv",
col_types = readr::cols(
gid = readr::col_character(),
geography = readr::col_character()))
CON_REGION_LOOKUP <- readr::read_csv(
"con-region-lookup.csv",
col_types = readr::cols(
gid = readr::col_character(),
region_id = readr::col_character(),
region_name = readr::col_character()))
usethis::use_data(
SX_ESA_1_DATES_QUERY,
SX_ESA_1_1_QUERY,
SX_ESA_1_2_QUERY,
SX_ESA_2_DATES_QUERY,
SX_ESA_2_QUERY,
SX_HB_1_DATES_QUERY,
SX_HB_1_1_QUERY,
SX_HB_1_2_QUERY,
SX_HB_2_DATES_QUERY,
SX_HB_2_QUERY,
SX_UCP_DATES_QUERY,
SX_UCP_QUERY,
SX_UCH_DATES_QUERY,
SX_UCH_QUERY,
SX_IS_DATES_QUERY,
SX_IS_QUERY,
SX_JSA_DATES_QUERY,
SX_JSA_QUERY,
GID_GEOGRAPHY_LOOKUP,
GEOGRAPHY_GID_LOOKUP,
CON_REGION_LOOKUP,
internal = TRUE,
overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.