point to new server

erf #542
OuhscBbmc · Oct 14, 2024 · f7989c1 · f7989c1
1 parent ee7b54f
commit f7989c1
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/tests/testthat/test-validate-no-logical.R b/tests/testthat/test-validate-no-logical.R
@@ -32,7 +32,7 @@ test_that("validate_no_logical -concern dataset", {
 
 # ---- redcap-repeat-instance --------------------------------------------------
 # credential  <- REDCapR::retrieve_credential_local(
-#   path_credential = system.file("misc/example.credentials", package = "REDCapR"),
+#   path_credential = system.file("misc/dev-2.credentials", package = "REDCapR"),
 #   project_id      = 1400
 # )
 

diff --git a/tests/testthat/test-validate.R b/tests/testthat/test-validate.R
@@ -42,7 +42,7 @@ test_that("not a data.frame", {
 
 # ---- redcap-repeat-instance --------------------------------------------------
 # credential  <- REDCapR::retrieve_credential_local(
-#   path_credential = system.file("misc/example.credentials", package = "REDCapR"),
+#   path_credential = system.file("misc/dev-2.credentials", package = "REDCapR"),
 #   project_id      = 1400
 # )
 

diff --git a/vignettes/longitudinal-and-repeating.Rmd b/vignettes/longitudinal-and-repeating.Rmd
@@ -215,10 +215,10 @@ The vignette uses these credentials to retrieve the practice/fake dataset.  **Th
 library(magrittr)
 
 # Retrieve token
-path_credential <- system.file("misc/example.credentials", package = "REDCapR")
+path_credential <- system.file("misc/dev-2.credentials", package = "REDCapR")
 credential  <- REDCapR::retrieve_credential_local(
   path_credential = path_credential,
-  project_id      = 3181
+  project_id      = 62
 )
 ```
 

diff --git a/vignettes/workflow-write.Rmd b/vignettes/workflow-write.Rmd
@@ -84,7 +84,7 @@ local file.
 
 ``` r
 # retrieve-credential
-path_credential <- system.file("misc/example.credentials", package = "REDCapR")
+path_credential <- system.file("misc/dev-2.credentials", package = "REDCapR")
 credential  <- REDCapR::retrieve_credential_local(
   path_credential = path_credential,
   project_id      = 3748