inst/deploy_scripts/CWD_surveillance_tables.R

In SVA-SE/svamap: Package to produce data summaries for the web

library(CWDsurveillance)

wild_path <- "deploy_pages/cwd_table_wild"
dir.create(wild_path, showWarnings = FALSE, recursive = TRUE)

cp_deploy_page(wild_table(), file.path(wild_path, "table_wild.html"))
file.copy(
  system.file("extdata", "sva_logo_white.png", package = "CWDsurveillance"),
  paste0(wild_path, "/sva-logo-white.png")
)

domestic_path <- "deploy_pages/cwd_domestic_table"
dir.create(domestic_path, showWarnings = FALSE)
cp_deploy_page(public_domestic_table(),
               file.path(domestic_path, "table_domestic.html"))

## to SJV
cp_deploy_page(
  domestic_table(),
  c(
    '//sva.se/UPP/svainf/JV-Transfer/CWD/table_domestic.html',
    '//webutv/ESS/CWD/table_domestic.html'
  )
)