Skip to content

Commit

Permalink
fix: add parent folder to save database - fix #35
Browse files Browse the repository at this point in the history
  • Loading branch information
ahasverus committed Feb 8, 2024
1 parent ea04835 commit 7f255ad
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions R/gets.R
Original file line number Diff line number Diff line change
Expand Up @@ -63,7 +63,7 @@ get_forcis_db <- function(path = ".", version = NULL, check_for_update = TRUE,

## Create outputs directory if required ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down Expand Up @@ -139,7 +139,7 @@ get_plankton_nets_data <- function(path = ".", version = NULL,

## Build outputs directory ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down Expand Up @@ -221,7 +221,7 @@ get_pump_data <- function(path = ".", version = NULL,

## Build outputs directory ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down Expand Up @@ -303,7 +303,7 @@ get_cpr_north_data <- function(path = ".", version = NULL,

## Build outputs directory ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down Expand Up @@ -384,7 +384,7 @@ get_cpr_south_data <- function(path = ".", version = NULL,

## Build outputs directory ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down Expand Up @@ -466,7 +466,7 @@ get_sediment_trap_data <- function(path = ".", version = NULL,

## Build outputs directory ----

path <- file.path(path, paste0("version-", version))
path <- file.path(path, "forcis-db", paste0("version-", version))

if (!dir.exists(path)) {
dir.create(path, recursive = TRUE)
Expand Down

0 comments on commit 7f255ad

Please sign in to comment.