Add 'Scraping one user's API tokens' section to vignettes/credential-scraping.Rmd

Author: pbchase

vignettes/credential-scraping.Rmd

@@ -115,6 +115,61 @@ dbDisconnect(file_conn)
 dbDisconnect(source_conn)
 ```
 
+### Scraping one user's API tokens
+
+Scraping one user's API tokens and putting them in a new, local sqlite DB for use.
+
+```{r, eval = FALSE}
+library(redcapcustodian)
+library(DBI)
+library(tidyverse)
+library(dotenv)
+
+# get the username provided on the command line
+args <- commandArgs(trailingOnly = TRUE)
+username <- args
+
+# Creates the credentials file if one does not exists.
+# Otherwise it deletes the credentials file
+credentials_db_path <- here::here(paste0("credentials-", username, ".db"))
+if (fs::file_exists(credentials_db_path)) fs::file_delete(credentials_db_path)
+file_conn <- DBI::dbConnect(RSQLite::SQLite(), credentials_db_path)
+
+# SQLite friendly schema
+credentials_sql <- "CREATE TABLE IF NOT EXISTS `credentials` (
+  `redcap_uri` TEXT NOT NULL,
+  `server_short_name` varchar(128) NOT NULL,
+  `username` varchar(191) NOT NULL,
+  `project_id` int(10) NOT NULL,
+  `project_display_name` TEXT NOT NULL,
+  `project_short_name` varchar(128) DEFAULT NULL,
+  `token` varchar(64) NOT NULL,
+  `comment` varchar(256) DEFAULT NULL
+);
+"
+
+dbExecute(file_conn, credentials_sql)
+
+# Connect to the REDCap database specified in the environment
+# loaded by the dotenv library
+source_conn <- connect_to_redcap_db()
+source_credentials <- scrape_user_api_tokens(
+  conn = source_conn,
+  username_to_scrape = username
+)
+
+# alter credentials to match local schema
+source_credentials_upload <- source_credentials %>%
+  mutate(
+    redcap_uri = Sys.getenv("URI"),
+    server_short_name = tolower(Sys.getenv("INSTANCE"))
+  )
+
+dbAppendTable(file_conn, "credentials", source_credentials_upload)
+
+dbDisconnect(file_conn)
+dbDisconnect(source_conn)
+```
 ### Creating API tokens for all local projects
 
 ```{r, eval = FALSE}