moves data to app_data folder from inst

Author: tomjemmett

.gitignore

@@ -19,4 +19,4 @@ inputs_selection_app/
 .cache/
 tmp/
 
-inst/app/data/
+app_data/

R/ZZZ.R

@@ -87,7 +87,7 @@ encrypt_filename <- function(
 }
 
 download_params_schema <- function(
-  data_path = app_sys("app", "data"),
+  data_path = "app_data",
   app_version = Sys.getenv("INPUTS_DATA_VERSION", "dev")
 ) {
   file_path <- file.path(data_path, "params-schema.json")
@@ -109,7 +109,7 @@ get_params_schema <- function(
   app_version = Sys.getenv("INPUTS_DATA_VERSION", "dev")
 ) {
   if (!exists("schema", envir = .schema_cache)) {
-    .schema_cache[["schema"]] <- app_sys("app", "data", "params-schema.json") |>
+    .schema_cache[["schema"]] <- file.path("app_data", "params-schema.json") |>
       readr::read_file() |>
       jsonvalidate::json_schema$new()
   }

R/fct_azure_storage.R

@@ -11,7 +11,7 @@
 #' @return The path to the downloaded file.
 download_provider_data <- function(
   file,
-  data_path = app_sys("app", "data"),
+  data_path = file.path("app_data"),
   inputs_data_version = Sys.getenv("NHP_INPUTS_DATA_VERSION", "dev"),
   ...
 ) {
@@ -48,7 +48,7 @@ get_adls_fs <- function() {
 get_all_data_files <- function(
   inputs_data_version = Sys.getenv("NHP_INPUTS_DATA_VERSION", "dev")
 ) {
-  data_path <- file.path("inst", "app", "data")
+  data_path <- file.path("app_data")
   if (!dir.exists(data_path)) {
     dir.create(data_path, recursive = TRUE)
   }

R/fct_load_provider_data.R

@@ -7,7 +7,7 @@
 #' @param file The name of the file to read.
 #' @param inputs_data_version The version of the inputs data to use.
 #' @return A tibble.
-load_provider_data <- function(file, data_path = app_sys("app", "data")) {
+load_provider_data <- function(file, data_path = file.path("app_data")) {
   if (!exists(file, envir = .data_cache)) {
     .data_cache[[file]] <- file.path(data_path, glue::glue("{file}.parquet")) |>
       arrow::read_parquet() |>

R/run_app.R

@@ -24,7 +24,7 @@ run_app <- function(
 
   # check files exist before starting app
   # TODO: consider more rigorous checks, e.g. specific files exist, or number of files
-  if (!dir.exists(file.path(app_sys("app"), "data"))) {
+  if (!dir.exists(file.path("app_data"))) {
     cat("Initialising data directory...\n")
     get_all_data_files()
   }