single warning

OHDSI · Jul 21, 2023 · 15d4249 · 15d4249
1 parent 66d37ac
commit 15d4249
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/Connection.R b/R/Connection.R
@@ -86,7 +86,7 @@ getDatabaseFile <- function(datasetName,
 
   if (is.null(pathToData) || is.na(pathToData) || pathToData == "") {
     pathToData <- tempdir()
-    warning("The pathToData argument is not specified. Consider setting the EUNOMIA_DATA_FOLDER environment variable, for example in the .Renviron file.")
+    rlang::warn("The pathToData argument is not specified. Consider setting the EUNOMIA_DATA_FOLDER environment variable, for example in the .Renviron file.", .frequency = c("once"), .frequency_id = "data_folder")
   }
 
   stopifnot(is.character(dbms), length(dbms) == 1, dbms %in% c("sqlite", "duckdb"))
@@ -122,7 +122,7 @@ getDatabaseFile <- function(datasetName,
     datasetAvailable <- TRUE
   }
 
-  rc <- file.copy(from = datasetLocation, to = databaseFile)
+  rc <- file.copy(from = datasetLocation, to = databaseFile, overwrite = TRUE)
   if (isFALSE(rc)) {
     stop(paste("File copy from", datasetLocation, "to", databaseFile, "failed!"))
   }

diff --git a/R/EunomiaData.R b/R/EunomiaData.R
@@ -23,7 +23,7 @@ downloadEunomiaData <- function(datasetName,
                                 overwrite = FALSE) {
   if (is.null(pathToData) || is.na(pathToData) || pathToData == "") {
     pathToData <- tempdir()
-    warning("The pathToData argument is not specified. Consider setting the EUNOMIA_DATA_FOLDER environment variable, for example in the .Renviron file.")
+    rlang::warn("The pathToData argument is not specified. Consider setting the EUNOMIA_DATA_FOLDER environment variable, for example in the .Renviron file.", .frequency = c("once"), .frequency_id = "data_folder")
   }
 
   if (is.null(datasetName) || is.na(datasetName) || datasetName == "") {