diff --git a/R/retrieve-credential.R b/R/retrieve-credential.R
index c5614dc0..d4eed6ac 100644
--- a/R/retrieve-credential.R
+++ b/R/retrieve-credential.R
@@ -34,7 +34,7 @@
 #' )
 #'
 #' @param path_credential The file path to the CSV containing the credentials.
-#'  Required.
+#' Required.
 #' @param project_id The ID assigned to the project withing REDCap.  This
 #' allows the user to store tokens to multiple REDCap projects in one file.
 #' Required
diff --git a/playgrounds/HttrPlayground.R b/playgrounds/HttrPlayground.R
deleted file mode 100644
index 5d8d2e88..00000000
--- a/playgrounds/HttrPlayground.R
+++ /dev/null
@@ -1,153 +0,0 @@
-rm(list=ls(all=TRUE))  #Clear the variables from previous runs.
-
-library(httr)
-
-redcap_uri <- "https://www.redcapplugins.org/redcap_v6.5.0/API/"
-token <- "D96029BFCE8FFE76737BFC33C2BCC72E" #For `UnitTestPhiFree` account and the simple project (pid 27) on Vandy's test server.
-
-
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B"
-
-raw_or_label <- "raw"
-export_data_access_groups_string <- "true"
-records_collapsed <- "1,2,5"
-fields_collapsed <- NULL
-events_collapsed <- NULL
-
-config_options <- list(cainfo = system.file("cacert.pem", package="openssl"))
-# config_options <- RCurl::curlOptions(ssl.verifypeer = FALSE)
-config_options <- httr::config(ssl_verifypeer=FALSE)
-# config_options <- list()
-
-post_body <- list(
-  token = token,
-  content = 'record',
-  format = 'csv',
-  type = 'flat',
-  rawOrLabel = raw_or_label,
-  exportDataAccessGroups = export_data_access_groups_string,
-  records = records_collapsed,
-  fields = fields_collapsed,
-  events = events_collapsed
-)
-
-result <- httr::POST(
-  url = redcap_uri,
-  body = post_body,
-  config = config_options
-)
-
-
-result$status_code
-result$headers$status
-result$headers$statusmessage
-raw_text <- httr::content(result, "text")
-
-result <- httr::POST(
-  url    = "https://httpbin.org/post",
-  body   = "A simple text string",
-  config = httr::config(ssl_verifypeer=FALSE)
-)
-httr::content(result, "text")
-
-ds <- utils::read.csv(text=raw_text) #Convert the raw text to a dataset.
-
-#
-# raw_text2 <- RCurl::postForm(
-#   uri = redcap_uri
-#   , token = token
-#   , content = 'record'
-#   , format = 'csv'
-#   , type = 'flat'
-#   , rawOrLabel = raw_or_label
-#   , exportDataAccessGroups = export_data_access_groups_string
-#   , records = records_collapsed
-#   , fields = fields_collapsed
-#   , .opts = RCurl::curlOptions(ssl.verifypeer = FALSE)
-# )
-# ds2 <- utils::read.csv(text=raw_text2) #Convert the raw text to a dataset.
-
-# result <- redcap_read_oneshot(redcap_uri="https://bbmc.ouhsc.edu/redcap/api/", token = "9A81268476645C4E5F03428B8AC3AA7B")
-# dput(result$data)
-dsToWrite <- structure(list(record_id = 1:5, name_first = c("Nutmeg", "Tumtum",
-  "Marcus", "Trudy", "John Lee"), name_last = c("Nutmouse", "Nutmouse",
-  "Wood", "DAG", "Walker"), address = c("14 Rose Cottage St.\nKenning UK, 323232",
-  "14 Rose Cottage Blvd.\nKenning UK 34243", "243 Hill St.\nGuthrie OK 73402",
-  "342 Elm\nDuncanville TX, 75116", "Hotel Suite\nNew Orleans LA, 70115"
-  ), telephone = c("(432) 456-4848", "(234) 234-2343", "(433) 435-9865",
-  "(987) 654-3210", "(333) 333-4444"), email = c("nutty@mouse.com",
-  "tummy@mouse.comm", "mw@mwood.net", "peroxide@blonde.com", "left@hippocket.com"
-  ), dob = c("2003-08-30", "2003-03-10", "1934-04-09", "1952-11-02",
-  "1955-04-15"), age = c(10L, 10L, 79L, 61L, 58L), ethnicity = c(1L,
-  1L, 0L, 1L, 1L), race = c(2L, 6L, 4L, 4L, 4L), sex = c(0L, 1L,
-  1L, 0L, 1L), height = c(5, 6, 180, 165, 193.04), weight = c(1L,
-  1L, 80L, 54L, 104L), bmi = c(400, 277.8, 24.7, 19.8, 27.9), comments = c("Character in a book, with some guessing",
-  "A mouse character from a good book", "completely made up", "This record doesn't have a DAG assigned\n\nSo call up Trudy on the telephone\nSend her a letter in the mail",
-  "Had a hand for trouble and a eye for cash\n\nHe had a gold watch chain and a black mustache"
-  ), demographics_complete = c(2L, 2L, 2L, 2L, 2L)), .Names = c("record_id",
-  "name_first", "name_last", "address", "telephone", "email", "dob",
-  "age", "ethnicity", "race", "sex", "height", "weight", "bmi",
-  "comments", "demographics_complete"), class = "data.frame", row.names = c(NA,
-  -5L))
-dsToWrite$age <- NULL; dsToWrite$bmi <- NULL #Drop the calculated fields
-# dsToWrite <- dsToWrite[1:3, ]
-# result <- REDCapR::redcap_write_oneshot(ds=dsToWrite, redcap_uri="https://bbmc.ouhsc.edu/redcap/api/", token = "9A81268476645C4E5F03428B8AC3AA7B")
-
-con <-  base::textConnection(object='csvElements', open='w', local=TRUE)
-utils::write.csv(dsToWrite, con, row.names = FALSE, na="")
-close(con)
-
-csv <- paste(csvElements, collapse="\n")
-csvForPostman <- gsub(pattern="[\\]", replacement="", x=csv)
-csvForPostman
-
-post_body <- list(
-  token = token,
-  content = 'record',
-  format = 'csv',
-  type = 'flat',
-  rawOrLabel = raw_or_label,
-  exportDataAccessGroups = export_data_access_groups_string,
-  records = records_collapsed,
-  fields = fields_collapsed,
-
-  #These next values separate the import from the export API call
-  data = csv,
-  overwriteBehavior = 'overwrite', #overwriteBehavior: *normal* - blank/empty values will be ignored [default]; *overwrite* - blank/empty values are valid and will overwrite data
-  returnContent = 'ids',
-  returnFormat = 'csv'
-)
-
-result <- httr::POST(
-  url = redcap_uri,
-  body = post_body,
-  .opts = config_options
-)
-result
-
-status_code <- result$status_code
-status_message <- result$headers$statusmessage
-return_content <- httr::content(result, type="text")
-
-# returnContent <- RCurl::postForm(
-#   uri = redcap_uri,
-#   token = token,
-#   content = 'record',
-#   format = 'csv',
-#   type = 'flat',
-#   returnContent = "ids",
-#   overwriteBehavior = 'overwrite', #overwriteBehavior: *normal* - blank/empty values will be ignored [default]; *overwrite* - blank/empty values are valid and will overwrite data
-#   data = csv,
-#   .opts = curl_options
-# )
-
-(was_successful <- !httr::http_error("https://bbmc.ouhsc.edu/redcap/plugins/redcapr/no_auth_test.php"))
-
-RCurl::httpHEAD(url = "https://bbmc.ouhsc.edu/redcap/plugins/redcapr/no_auth_test.php", .opts = RCurl::curlOptions(ssl.verifypeer = FALSE))
-RCurl::httpGET(url = "https://bbmc.ouhsc.edu/redcap/plugins/redcapr/no_auth_test.php", .opts = RCurl::curlOptions(ssl.verifypeer = FALSE))
-
-
-cert_location <- system.file("cacert.pem", package="openssl")
-file.exists(cert_location)
-httr::url_ok("https://bbmc.ouhsc.edu/redcap/plugins/redcapr/no_auth_test.php", config=list(cainfo=cert_location, sslversion=3))
diff --git a/playgrounds/LinuxPlayground.R b/playgrounds/LinuxPlayground.R
deleted file mode 100644
index dd8ae149..00000000
--- a/playgrounds/LinuxPlayground.R
+++ /dev/null
@@ -1,44 +0,0 @@
-rm(list=ls(all=TRUE))  #Clear the variables from previous runs.
-library(RCurl)
-library(httr)
-
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B"
-
-
-# curl_options <- RCurl::curlOptions(ssl.verifypeer = FALSE)
-curl_options <- list(cainfo = system.file("cacert.pem", package="openssl")
-
-raw_text2 <- RCurl::postForm(
-  uri = redcap_uri
-  , token = token
-  , content = 'record'
-  , format = 'csv'
-  , type = 'flat'
-  , .opts = curl_options
-)
-raw_text2
-
-#Returns
-#     [1] "record_id,name_first,name_last,address,telephone,email,dob,age,ethnicity,race,sex,height,weight,bmi,comments,demographics_complete\n\"1\",\"Nutmeg\",\"Nutmouse\",\"14 Rose Cottage St.\r\nKenning UK, 323232\",\"(432) 456-4848\",\"nutty@mouse.com\",\"2003-08-30\",10,1,2,0,5,1,400,\"Character in a book, with some guessing\",2\n\"2\",\"Tumtum\",\"Nutmouse\",\"14 Rose Cottage Blvd.\r\nKenning UK 34243\",\"(234) 234-2343\",\"tummy@mouse.comm\",\"2003-03-10\",11,1,6,1,6,1,277.8,\"A mouse character from a good book\",2\n\"3\",\"Marcus\",\"Wood\",\"243 Hill St.\r\nGuthrie OK 73402\",\"(433) 435-9865\",\"mw@mwood.net\",\"1934-04-09\",79,0,4,1,180,80,24.7,\"completely made up\",2\n\"4\",\"Trudy\",\"DAG\",\"342 Elm\r\nDuncanville TX, 75116\",\"(987) 654-3210\",\"peroxide@blonde.com\",\"1952-11-02\",61,1,4,0,165,54,19.8,\"This record doesn't have a DAG assigned\r\n\r\nSo call up Trudy on the telephone\r\nSend her a letter in the mail\",2\n\"5\",\"John Lee\",\"Walker\",\"Hotel Suite\r\nNew Orleans LA, 70115\",\"(333) 333-4444\",\"left@hippocket.com\",\"1955-04-15\",58,1,4,1,193.04,104,27.9,\"Had a hand for trouble and a eye for cash\r\n\r\nHe had a gold watch chain and a black mustache\",2\n"
-#     attr(,"Content-Type")
-#     charset 
-#     "text/html"     "utf-8" 
-
-raw_text <- httr::POST(
-  url = redcap_uri
-  , body = list(
-    token = token
-    , content = 'record'
-    , format = 'csv'
-    , type = 'flat'
-  ),
-  #, .opts = RCurl::curlOptions(ssl.verifypeer = FALSE)
-  , .opts = curl_options
-  , httr::verbose()
-)
-raw_text
-
-#Returns
-#     Error in function (type, msg, asError = TRUE)  : 
-#       Unknown SSL protocol error in connection to bbmc.ouhsc.edu:443 
\ No newline at end of file
diff --git a/playgrounds/MetadataPlayground.R b/playgrounds/MetadataPlayground.R
deleted file mode 100644
index 90f62f85..00000000
--- a/playgrounds/MetadataPlayground.R
+++ /dev/null
@@ -1,124 +0,0 @@
-rm(list=ls(all=TRUE))
-library(REDCapR)
-uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B" #The version that is relatively static (and isn't repeatedly deleted).
-# token <- "D70F9ACD1EDD6F151C6EA78683944E98" #The version that is repeatedly deleted and rewritten for most unit tests.
-
-d <- redcap_metadata_read(redcap_uri=uri, token=token)$data
-# redcap_metadata_read(redcap_uri=uri, token=token, fields=c("record_id", "name_last"))
-# redcap_metadata_read(redcap_uri=uri, token=token, fields_collapsed = "record_id, name_last")
-# redcap_metadata_read(redcap_uri=uri, token=token, forms = c("health"))
-# redcap_metadata_read(redcap_uri=uri, token=token, forms_collapsed = "health")
-choices <- d[d$field_name=="race", "select_choices_or_calculations"]
-
-# pattern <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?= \\| |\\Z)"
-# pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?= \\| |\\Z)"
-# pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?= \\s|\\Z)"
-# pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?=[ | ] |\\Z)"
-# pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})"
-pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\x21-\x7B\x7D-\x7E ]{1,})(?= \\| |\\Z)" #The weird ranges are to avoid the pipe character; PCRE doesn't support character negation.
-
-# regex_named_captures <- function( pattern, text, perl=TRUE ) {
-#   match <- gregexpr(pattern, choices, perl=perl)[[1]]
-#   capture_names <- attr(match, "capture.names")
-#   d <- as.data.frame(matrix(NA, nrow=length(attr(match, "match.length")), ncol=length(capture_names)))
-#   colnames(d) <- capture_names
-#
-#   for( column_name in colnames(d) ) {
-#     d[, column_name] <- mapply( function (start, len) substr(choices, start, start+len-1),
-#                                 attr(match, "capture.start")[, column_name],
-#                                 attr(match, "capture.length")[, column_name] )
-#   }
-#   return( d )
-# }
-# REDCapR::
-regex_named_captures(pattern=pattern_checkboxes, text=choices)
-#   id                                     label
-# 1  1             American Indian/Alaska Native
-# 2  2                                     Asian
-# 3  3 Native Hawaiian or Other Pacific Islander
-# 4  4                 Black or African American
-# 5  5                                     White
-# 6  6                    Unknown / Not Reported
-
-
-# checkbox_choices <- function( select_choices ) {
-#   #The weird ranges are to avoid the pipe character; PCRE doesn't support character negation.
-#   pattern_checkboxes <- "(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\x21-\x7B\x7D-\x7E ]{1,})(?= \\| |\\Z)"
-#
-#   d <- regex_named_captures(pattern=pattern_checkboxes, text=select_choices)
-#   return( d )
-# }
-
-checkbox_choices(select_choices=choices)
-
-
-
-pattern_id <- "(?<=\\A| \\| )(?<id>\\d{1,}), [\\w ]{1,}(?= \\| |\\Z)"
-pattern_label <- "(?<=\\A| \\| )\\d{1,}, ([\\w ]{1,})(?= \\| |\\Z)"
-match_id <- gregexpr(pattern_id, choices, perl=TRUE)[[1]]
-match_label <- gregexpr(pattern_label, choices, perl=TRUE)[[1]]
-
-ids <- mapply(function (start, len) as.integer(substr(choices, start, start+len-1)),
-                 attr(match, "capture.start")[, "id"],
-                 attr(match, "capture.length")[, "id"]
-                 )
-labels <- mapply(function (start, len) substr(choices, start, start+len-1),
-                 attr(match, "capture.start")[, "label"],
-                 attr(match, "capture.length")[, "label"]
-                 )
-
-
-
-#https://stackoverflow.com/questions/952275/regex-group-capture-in-r
-ids <- mapply(function (start, len) as.integer(substr(choices, start, start+len-1)),
-                 attr(match_id, "capture.start")[, 1],
-                 attr(match_id, "capture.length")[, 1]
-                 )
-
-labels <- mapply(function (start, len) substr(choices, start, start+len-1),
-                 attr(match_label, "capture.start")[, 1],
-                 attr(match_label, "capture.length")[, 1]
-                 )
-
-
-
-
-# r <- regmatches(choices, gregexpr("(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?=( | )|\\Z)", choices, perl=TRUE))
-# str(r)
-#
-#
-# matches <- gregexpr("(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?=( | )|\\Z)", choices, perl=TRUE);
-# result <- lapply(matches, function(m) attr(m, "capture.start")[,1])
-# for (i in 1:length(result))
-# #   attr(result[[i]], "match.length") <- attr(matches[[i]], "capture.length")[,1]
-#   attr(result[[i]], "match.length") <- attr(matches[[i]], "capture.length")[,2]
-# regmatches(choices, result)
-#
-# str(result)
-#
-# r <- regmatches(choices, gregexpr("(?<=\\A| \\| )(?<id>\\d{1,}), (?<label>[\\w ]{1,})(?=( | )|\\Z)", choices, perl=TRUE));
-# str(r)
-#
-#
-
-gregexpr(pattern_id, choices, perl=TRUE)
-gregexpr(pattern_label, choices, perl=TRUE)
-
-#This function is adapted from https://stat.ethz.ch/R-manual/R-devel/library/base/html/grep.html
-parse.one <- function(res, result) {
-  m <- do.call(rbind, lapply(seq_along(res), function(i) {
-    if(result[i] == -1) return("")
-    st <- attr(result, "capture.start")[i, ]
-    substring(res[i], st, st + attr(result, "capture.length")[i, ] - 1)
-  }))
-  colnames(m) <- attr(result, "capture.names")
-  m
-}
-(parsed <- regexpr(pattern=pattern_id, text=choices, perl = TRUE))
-parse.one(choices, parsed)
-
-matches <- stringr::str_extract_all(choices, pattern_id)
-lapply(matches, function(match) {
-    stringr::str_match(match, pattern_id)
-})
diff --git a/playgrounds/ParameterizedQueryPlayground.R b/playgrounds/ParameterizedQueryPlayground.R
deleted file mode 100644
index a723e596..00000000
--- a/playgrounds/ParameterizedQueryPlayground.R
+++ /dev/null
@@ -1,31 +0,0 @@
-retrieve_credential_mssql2 <- function(
-  dsn = "BbmcSecurity",
-  instance = "bbmc",
-  project_id = 404
-  ) {
-
-  sql <- "EXEC [redcap].[prc_credential] @project_id = ?, @instance = ?"
-  input <- list(project_id = project_id, instance = instance)
-  # sql <- "EXEC [redcap].[prc_credential] @project_id = ?, @instance = 'bbmc'"
-  # input <- list(project_id = project_id)
-  # sql <- "EXEC [redcap].[prc_credential] @project_id = 404, @instance = 'bbmc'"
-  # input <- list(project_id)
-  channel <- DBI::dbConnect(odbc::odbc(), dsn = dsn)
-
-  base::tryCatch(
-    expr = {
-      d_credential  <- DBI::dbGetQuery(conn = channel, statement = sql, params = input)
-
-
-      # result        <- DBI::dbSendQuery(channel, sql)
-      # DBI::dbBind(result, input)
-      # d_credential  <- DBI::dbFetch(result)
-    }, finally = {
-      # if (!is.null(result))      DBI::dbClearResult(result)
-      DBI::dbDisconnect(channel)
-    }
-  )
-
-  return( d_credential )
-}
-retrieve_credential_mssql2()
diff --git a/playgrounds/PlaygroundColumnSanitize.R b/playgrounds/PlaygroundColumnSanitize.R
deleted file mode 100644
index e32374d3..00000000
--- a/playgrounds/PlaygroundColumnSanitize.R
+++ /dev/null
@@ -1,53 +0,0 @@
-#' @name redcap_column_sanitize
-#' @export redcap_column_sanitize
-#' @title Sanitize values to follow REDCap character requirements.
-#'
-#' @description Replace characters that could cause problems when saving to a REDCap project.
-#'
-#' @param d The \code{data.frame} containing the dataset used to update the REDCap project.  Required.
-#' @param column_names An array of \code{character} values indicating the names of the variables to sanitize.  Optional.
-#' @return A \code{data.frame} with same columns, but whose character values have been sanitized
-#' @details
-#' Letters like an accented `A` are replaced with a plain `A`.  Please tell us if you encounter another violating character.
-#'
-#' @author
-Will Beasley
-#'
-#' @examples
-#' # Examples are not shown because they make they require non-ASCII encoding,
-#' #   and make the documentation less portable.
-#' # To see some of the characters replaced run this line.
-#' #   Unfortunately, the characters might not display correctly in your console either.
-#' REDCapR::redcap_column_sanitize
-
-redcap_column_sanitize <- function( d, column_names=colnames(d) ) {
-  #Demote unicode characters to ASCII
-  old_characters <- base::c("ÄÁÀÂÇÉÈÊËÍÎÏÑÓÖÔØÚÜÙÛŸÝ") #Pasted from https://www.periodni.com/unicode_utf-8_encoding.html
-  new_characters <- base::c("AAAACEEEEIIINOOOOUUUUYY")
-  old_characters <- base::paste0(old_characters, base::tolower(old_characters))
-  new_characters <- base::paste0(new_characters, base::tolower(new_characters))
-
-  for( column in column_names ) {
-    d[, column] <- base::chartr(old=old_characters, new=new_characters, x=d[, column])
-  }
-  return( d )
-}
-
-make.names("ÄÁÀ")
-iconv("Žvaigždės aukštybėj užges or äüö", "latin1", "ASCII//TRANSLIT", "?")
-iconv("ÄÁÀÂÇÉÈÊËÍÎÏÑÓÖÔØÚÜÙÛŸÝ", "latin1", "ASCII//TRANSLIT", "?")
-iconv("äáàâçéèêëíîïñóöôøúüùûÿý", "latin1", "ASCII//TRANSLIT", "?")
-
-# d <- data.frame(name_last=c("Gödel", "Pølsehorn"), name_first=c("Ángel", "Joaquín"), name_middle=c("Lý", "Tôn"))
-#
-# #Sanitize all the columns.
-# d_sanitized_all <- redcap_column_sanitize(d=d)
-# d_sanitized_all
-#
-# #Sanitize the last and middle name, but not the middle.
-# d_sanitized_some <- redcap_column_sanitize(d=d, column_names=c("name_last", "name_middle"))
-# d_sanitized_some
-
-tools::showNonASCII("ÄÁÀÂÇÉÈÊËÍÎÏÑÓÖÔØÚÜÙÛŸÝ")
-
-# tools::showNonASCII(data.frame(name_last=c("Gödel", "Pølsehorn"), name_first=c("Ángel", "Joaquín"), name_middle=c("Lý", "Tôn")))
diff --git a/playgrounds/ReadWithCert.R b/playgrounds/ReadWithCert.R
deleted file mode 100644
index be493769..00000000
--- a/playgrounds/ReadWithCert.R
+++ /dev/null
@@ -1,26 +0,0 @@
-rm(list=ls(all=TRUE))
-library(REDCapR)
-
-uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "C1A2B36F94B518FDD50561D1FD09170D" #UnitTesttPhiFree
-certs <- list(cainfo = system.file("cacert.pem", package="openssl"))
-
-returned <- redcap_read(redcap_uri=uri, token=token)
-
-
-raw_text <- RCurl::postForm(
-  uri = uri
-  , token = token
-  , content = 'record'
-  , format = 'csv'
-  , type = 'flat'
-#   , .opts = RCurl::curlOptions(cainfo = certs)
-  , .opts = RCurl::curlOptions(ssl.verifypeer = FALSE)
-)
-try(
-  dsTry <- utils::read.csv(text=raw_text) #Convert the raw text to a dataset.
-)
-if( ! exists("dsTry") )
-  dsTry <- data.frame()
-
-
diff --git a/playgrounds/SSL3Playground.R b/playgrounds/SSL3Playground.R
deleted file mode 100644
index 6bbf3ec1..00000000
--- a/playgrounds/SSL3Playground.R
+++ /dev/null
@@ -1,68 +0,0 @@
-## This playground comes directly for @rparrish's thread at https://github.com/OuhscBbmc/REDCapR/issues/55
-
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B" #For `U
-token <- "D70F9ACD1EDD6F151C6EA78683944E98****"
-# redcap_uri <- "https://ampa.org/redcap/api/"
-# token <- "D1BB670A719F1D481A5574F33125A04C" ## expires 11/2/2014
-
-redcap_uri <- "https://www.redcapplugins.org/redcap_v6.5.0/API/"
-token <- "D96029BFCE8FFE76737BFC33C2BCC72E" #For `UnitTestPhiFree` account and the simple project (pid 27) on Vandy's test server.
-
-## RCurl
-library(RCurl)
-
-# SO post:
-# https://stackoverflow.com/questions/15347233/ssl-certificate-failed-for-twitter-in-r
-cert_location <- system.file("cacert.pem", package="openssl")
-file.exists(cert_location)
-options(RCurlOptions = list(cainfo=cert_location))
-
-RCurl_raw <- RCurl::postForm(
-    uri = redcap_uri
-    , token = token
-    , content = 'record'
-    , format = 'csv'
-#     , type = 'flat'
-#     , rawOrLabel = 'raw'
-#     , exportDataAccessGroups = 'true'
-    , .opts = RCurl::curlOptions(ssl.verifypeer=FALSE)
-)
-
-RCurl_raw
-
-devtools::install_github("hadley/httr")
-library(httr)
-post_body <- list(
-    token = token,
-    content = 'record',
-    format = 'csv',
-    type = 'flat',
-    rawOrLabel = 'raw',
-    exportDataAccessGroups = 'true'
-)
-
-set_config(ssl_verifypeer=FALSE)
-config(ssl_verifypeer=FALSE)
-config()
-
-httr_raw <- httr::POST(
-    url = redcap_uri,
-    body = post_body#,
-    # config = config(ssl_verifypeer=FALSE)
-   # config = httr::config(ssl.verifypeer=FALSE)
-    #httr::verbose()
-)
-httr_raw
-content(httr_raw)
-
-# devtools::install_github("nutterb/redcapAPI")
-# install.packages("redcapAPI")
-library(redcapAPI)
-rcon <- redcapConnection(url=redcap_uri, token=token, config = list(ssl.verifypeer=FALSE))
-redcap_API_data <- exportRecords(rcon)
-
-redcap_API_data
-
-library(REDCapR)
-REDCapR_data <- redcap_read_oneshot(redcap_uri=redcap_uri, token=token, sslversion=NULL)
diff --git a/playgrounds/Validation.R b/playgrounds/Validation.R
deleted file mode 100644
index d141ba31..00000000
--- a/playgrounds/Validation.R
+++ /dev/null
@@ -1,53 +0,0 @@
-rm(list=ls(all=TRUE))
-library(REDCapR)
-
-dfBad <- data.frame(
-  record_id = 1:4,
-  bad_logical = c(TRUE, TRUE, FALSE, TRUE),
-  UpperCase = c(4, 6, 8, 2)
-)
-validate_for_write(d = dfBad)
-
-
-grep(pattern="[A-Z]", x=colnames(dfBad), perl=TRUE)
-
-indices <- which(sapply(dfBad, class)=="logical")
-colnames(dfBad)[indices]
-
-# indices <- which(sapply(d, class)=="logical")
-# colnames(df)[indices]
-
-data.frame(
-  field_name = colnames(dfBad)[indices],
-  field_index = indices,
-  concern = "The REDCap API does not automatically convert boolean values to 0/1 values.",
-  suggestion = "Convert the variable with the `as.integer()` function ."
-)
-
-v <- validate_for_write(dfBad)
-
-dfGood <- data.frame(
-  record_id = 1:4,
-  not_logical = c(1, 1, 0, 1),
-  no_uppercase = c(4, 6, 8, 2)
-)
-
-flag <- (sapply(dfGood, class)=="logical")
-indices <- which(flag)
-
-data.frame(
-  field_name = colnames(df)[flag],
-  field_index = indices,
-  concern = "The REDCap API does not automatically convert boolean values to 0/1 values.",
-  suggestion = "Convert the variable with the `as.integer()` function ."
-)
-
-v <- validate_no_logical(dfGood)
-v <- validate_for_write(dfGood)
-
-dfSoso <- data.frame(
-  record_id = 1:4,
-  bad_logical = c(TRUE, TRUE, TRUE, FALSE),
-  no_uppercase = c(4, 6, 8, 2)
-)
-v <- validate_for_write(dfSoso)
diff --git a/playgrounds/decimal-comma.R b/playgrounds/decimal-comma.R
deleted file mode 100644
index 935f5040..00000000
--- a/playgrounds/decimal-comma.R
+++ /dev/null
@@ -1,131 +0,0 @@
-d_expected <-
-  tibble::tribble(
-    ~record_id,~last_name,~height,~weight,~bmi,~demographics_complete,
-    1, "Valdez"  , 1.54,  52.3, 22.1, 2L,
-    2, "Rich"    , 1.84,  92.3, 27.3, 2L,
-    3, "Furtado" , 1.95, 123.4, 32.5, 2L,
-    4, "Akbar"   , 1.61,  45.9, 17.7, 2L,
-)
-
-
-# ---- both commas & dots -------------------------------------------------
-s_both <-
-  'record_id,last_name,height_dot,height_comma,weight_dot,weight_comma,bmi_dot,bmi_comma,demographics_complete
-1,Valdez,1.54,"1,54",52.3,"52,3",22.1,"22,1",0
-2,Rich,1.84,"1,84",92.3,"92,3",27.3,"27,3",0
-3,Furtado,1.95,"1,95",123.4,"123,4",32.5,"32,5",0
-4,Akbar,1.61,"1,61",45.9,"45,9",17.7,"17,7",0'
-
-col_types_both <- readr::cols_only(
-  `record_id`               = readr::col_integer(),
-  `last_name`               = readr::col_character(),
-  `height_dot`              = readr::col_double(),
-  `height_comma`            = readr::col_character(),
-  `weight_dot`              = readr::col_double(),
-  `weight_comma`            = readr::col_character(),
-  `bmi_dot`                 = readr::col_double(),
-  `bmi_comma`               = readr::col_character(),
-  `demographics_complete`   = readr::col_double()
-)
-d_both <-
-  readr::read_csv(
-    file = I(s_both),
-    # locale= readr::locale(decimal_mark = ",")
-    col_types = col_types_both
-  ) |>
-  dplyr::mutate(
-    height_comma  = readr::parse_number(height_comma, locale = readr::locale(decimal_mark = ",")),
-    weight_comma  = readr::parse_number(weight_comma, locale = readr::locale(decimal_mark = ",")),
-    bmi_comma     = readr::parse_number(bmi_comma   , locale = readr::locale(decimal_mark = ",")),
-  )
-testit::assert(d_both$height_dot == d_both$height_comma)
-testit::assert(d_both$weight_dot == d_both$weight_comma)
-testit::assert(d_both$bmi_dot    == d_both$bmi_comma   )
-
-testit::assert(d_both$height_dot == d_expected$height)
-testit::assert(d_both$weight_dot == d_expected$weight)
-testit::assert(d_both$bmi_dot    == d_expected$bmi   )
-
-
-# ---- commas -------------------------------------------------
-s_commas <-
-  'record_id,last_name,height,weight,bmi,demographics_complete
-1,Valdez,"1,54","52,3","22,1",0
-2,Rich,"1,84","92,3","27,3",0
-3,Furtado,"1,95","123,4","32,5",0
-4,Akbar,"1,61","45,9","17,7",0'
-
-col_types_commas <- readr::cols_only(
-  `record_id`               = readr::col_integer(),
-  `last_name`               = readr::col_character(),
-  `height`                  = readr::col_double(),
-  `weight`                  = readr::col_double(),
-  `bmi`                     = readr::col_double(),
-  `demographics_complete`   = readr::col_double()
-)
-
-d_commas <-
-  readr::read_csv(
-    file = I(s_commas),
-    locale= readr::locale(decimal_mark = ","),
-    col_types = col_types_commas
-  )
-
-testit::assert(d_commas$height == d_expected$height)
-testit::assert(d_commas$weight == d_expected$weight)
-testit::assert(d_commas$bmi    == d_expected$bmi   )
-
-# ---- dots -------------------------------------------------
-s_dots <-
-  'record_id,last_name,height,weight,bmi,demographics_complete
-1,Valdez,"1.54","52.3","22.1",0
-2,Rich,"1.84","92.3","27.3",0
-3,Furtado,"1.95","123.4","32.5",0
-4,Akbar,"1.61","45.9","17.7",0'
-
-col_types_dots <- readr::cols_only(
-  `record_id`               = readr::col_integer(),
-  `last_name`               = readr::col_character(),
-  `height`                  = readr::col_double(),
-  `weight`                  = readr::col_double(),
-  `bmi`                     = readr::col_double(),
-  `demographics_complete`   = readr::col_double()
-)
-
-d_dots <-
-  readr::read_csv(
-    file = I(s_dots),
-    # locale= readr::locale(decimal_mark = ","),
-    col_types = col_types_dots
-  )
-
-testit::assert(d_dots$height == d_expected$height)
-testit::assert(d_dots$weight == d_expected$weight)
-testit::assert(d_dots$bmi    == d_expected$bmi   )
-
-
-
-d_dots_null <-
-  readr::read_csv(
-    file = I(s_dots),
-    locale    = readr::default_locale(),
-    col_types = col_types_dots
-  )
-
-testit::assert(d_dots_null$height == d_expected$height)
-testit::assert(d_dots_null$weight == d_expected$weight)
-testit::assert(d_dots_null$bmi    == d_expected$bmi   )
-
-
-
-# # ---- using validation from dictionary ----------------------------------------
-# url <- "https://bbmc.ouhsc.edu/redcap/api/"
-# token <- "33DDFEF1D68EE5A5119DDF06C602430E"
-#
-# m <- REDCapR::redcap_metadata_read(url, token)$data
-#
-# m |>
-#   dplyr::select(
-#     field_name,
-#
-#   )
diff --git a/playgrounds/eav-playground-2.R b/playgrounds/eav-playground-2.R
deleted file mode 100644
index ee588a89..00000000
--- a/playgrounds/eav-playground-2.R
+++ /dev/null
@@ -1,159 +0,0 @@
-rm(list = ls(all = TRUE)) #Clear the memory of variables from previous run. This is not called by knitr, because it's above the first chunk.
-
-# ---- load-sources ------------------------------------------------------------
-
-# ---- load-packages -----------------------------------------------------------
-library("magrittr")
-requireNamespace("dplyr")
-requireNamespace("readr")
-requireNamespace("testit")
-
-# ---- declare-globals ---------------------------------------------------------
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-# token <- "9A81268476645C4E5F03428B8AC3AA7B"  # PHI-free demo: simple static
-token <- "5007DC786DBE39CE77ED8DD0C68069A6"  # PHI-free demo: Checkboxes 1 #3074
-# token <- "CCB7E11837D41126D67C744F97389E04"  # PHI-free demo: super-wide --3,000 columns
-# token <- "5C1526186C4D04AE0A0630743E69B53C"  # PHI-free demo: super-wide #3--35,000 columns
-# token <- "56F43A10D01D6578A46393394D76D88F"  # PHI-free demo: Repeating Instruments --Sparse #2603
-
-# fields  <- c("record_id", "dob")
-# forms   <- "health"
-fields  <- NULL
-forms   <- NULL
-records <- NULL #c("1")
-blank_for_gray_form_status <- FALSE
-
-.complete_value_for_untouched_forms <-
-  dplyr::if_else(
-    blank_for_gray_form_status,
-    NA_character_,
-    as.character(REDCapR::constant("form_incomplete"))
-  )
-# .default_check_for_untouched_forms <- dplyr::if_else(blank_for_gray_form_status, FALSE, NA)
-
-# ---- load-data ---------------------------------------------------------------
-  # View(REDCapR::redcap_variables(redcap_uri, token)$data)
-system.time({
-  col_types   <- REDCapR::redcap_metadata_coltypes(redcap_uri, token, print_col_types_to_console = FALSE)
-  meta        <- REDCapR:::redcap_metadata_internal(redcap_uri, token)
-
-  ds_metadata <-
-    meta$d_variable %>%
-    dplyr::filter(
-      # (.data$field_name_base %in% fields) | (.data$form_name %in% forms)
-    )
-
-  desired_fields <- ds_metadata$field_name_base
-
-  ds_eav      <- REDCapR:::redcap_read_eav_oneshot(redcap_uri, token, fields = desired_fields, records=records)$data
-})
-
-system.time(
-  ds_expected <-
-    REDCapR::redcap_read_oneshot(
-      redcap_uri,
-      token,
-      records                     = records,
-      col_types                   = col_types,
-      blank_for_gray_form_status  = blank_for_gray_form_status
-    )$data
-)
-
-testit::assert(ds_metadata$field_name == colnames(ds_expected))
-testthat::expect_setequal( ds_metadata$field_name, colnames(ds_expected))
-
-# ---- tweak-data --------------------------------------------------------------
-.fields_plumbing  <- c("record", "event_id")
-
-if (!meta$longitudinal) {
-  ds_eav$event_id <- "dummy_1"
-}
-if (meta$repeating) {
-  .fields_plumbing <- c(.fields_plumbing, "redcap_repeat_instrument", "redcap_repeat_instance")
-}
-
-.fields_to_cross  <- setdiff(ds_metadata$field_name, c("redcap_repeat_instrument", "redcap_repeat_instance"))
-.fields_to_return <- c("record", "event_id", ds_metadata$field_name)
-.record_id_name   <- ds_metadata$field_name[1]
-
-ds_eav_possible <-
-  ds_eav %>%
-  tidyr::expand(
-    tidyr::nesting(record, event_id),
-    tidyr::crossing(field_name = .fields_to_cross)
-  )
-
-# To try to have checkboxes NA if the forms weren't touched.
-# ds_form_pt <-
-#   ds_metadata %>%
-#   dplyr::filter(.data$field_type == "complete") %>%
-#   dplyr::select("field_name", "form_name") %>%
-#   dplyr::inner_join(ds_eav, by = "field_name") %>%
-#   dplyr::mutate(
-#     .default_check = dplyr::i
-#   )
-
-ds_eav_2 <-
-  ds_eav %>%
-  dplyr::rename(field_name_base = field_name) %>%
-  dplyr::left_join(
-    ds_metadata %>%
-      dplyr::distinct(.data$field_name_base, .data$field_type),
-    by = "field_name_base"
-  ) %>%
-  dplyr::mutate(
-    checkbox   = !is.na(.data$field_type) & (.data$field_type == "checkbox"),
-    field_name = dplyr::if_else(.data$checkbox, paste0(.data$field_name_base , "___", .data$value), .data$field_name_base),
-    value      = dplyr::if_else(.data$checkbox, as.character(!is.na(.data$value)), .data$value),
-  ) %>%
-  dplyr::right_join(ds_eav_possible, by = c("record", "event_id", "field_name")) %>%
-  dplyr::select(-"field_type", -"field_name_base", -"checkbox") %>%
-  dplyr::left_join(
-    ds_metadata %>%
-      dplyr::select("field_name", "field_name_base", "field_type"),
-    by = "field_name"
-  ) %>%
-  dplyr::mutate(
-    value = dplyr::if_else(.data$field_type == "checkbox", dplyr::coalesce(value, "FALSE"), value),
-    value = dplyr::if_else(.data$field_type == "complete", dplyr::coalesce(value, .complete_value_for_untouched_forms), value),
-  )
-
-ds <-
-  ds_eav_2 %>%
-  dplyr::select(-"field_type", -"field_name_base") %>%
-  # dplyr::slice(1:46) %>%
-  # dplyr::group_by(record, redcap_repeat_instrument, redcap_repeat_instance, event_id, field_name) %>%
-  # dplyr::summarise(n = dplyr::n(), .groups = "drop") %>%
-  # dplyr::filter(n > 1L) %>%
-  # View()
-  # dplyr::select(-.data$redcap_repeat_instance) %>%        # TODO: need a good fix for repeats
-  # tidyr::drop_na(event_id) %>%                            # TODO: need a good fix for repeats
-  tidyr::pivot_wider( # Everything else is considered an ID column
-    id_cols     = !!.fields_plumbing,
-    names_from  = "field_name",
-    values_from = "value"
-  ) %>%
-  dplyr::select(!!.fields_to_return)
-  # dplyr::select(.data = ., !!intersect(variables_to_keep, colnames(.)))
-
-if (!meta$longitudinal) {
-  ds$event_id <- NULL
-}
-
-ds[[.record_id_name]] <- NULL
-ds <-
-  ds %>%
-  dplyr::rename(
-    !!.record_id_name := "record"
-  ) %>%
-  readr::type_convert(col_types)# |>
-    # View()
-
-testit::assert(colnames(ds) == colnames(ds_expected))
-testthat::expect_setequal(colnames(ds), colnames(ds_expected))
-
-# ds_expected <-
-#   ds_expected %>%
-#   readr::type_convert(col_types=col_types)
-
-testthat::expect_equal(ds, ds_expected)
diff --git a/playgrounds/eav-playground.R b/playgrounds/eav-playground.R
deleted file mode 100644
index 3402afb6..00000000
--- a/playgrounds/eav-playground.R
+++ /dev/null
@@ -1,166 +0,0 @@
-rm(list=ls(all=TRUE)) #Clear the memory of variables from previous run. This is not called by knitr, because it's above the first chunk.
-
-# ---- load-sources ------------------------------------------------------------
-
-# ---- load-packages -----------------------------------------------------------
-library("magrittr")
-requireNamespace("httr")
-requireNamespace("dplyr")
-requireNamespace("readr")
-requireNamespace("testit")
-
-# ---- declare-globals ---------------------------------------------------------
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B"  # PHI-free demo: simple static
-token <- "5007DC786DBE39CE77ED8DD0C68069A6"  # PHI-free demo: Checkboxes 1
-# token <- "CCB7E11837D41126D67C744F97389E04"  # PHI-free demo: super-wide --3,000 columns
-# token <- "5C1526186C4D04AE0A0630743E69B53C"  # PHI-free demo: super-wide #3--35,000 columns
-# token <- "56F43A10D01D6578A46393394D76D88F"  # PHI-free demo: Repeating Instruments --Sparse
-
-raw_or_label <- "raw"
-export_data_access_groups_string <- "false"
-
-# ---- load-data ---------------------------------------------------------------
-system.time(
-ds_expected <- REDCapR::redcap_read_oneshot(redcap_uri, token)$data
-)
-
-system.time({
-ds_metadata <- REDCapR::redcap_metadata_read(redcap_uri, token)$data
-ds_variable <- REDCapR::redcap_variables(redcap_uri, token)$data
-
-r <- httr::POST(
-  url  = redcap_uri,
-  body = list(
-    token       = token,
-    content     = 'record',
-    format      = 'csv',
-    type        = 'eav'  ##This is the difference from the call above
-    # , rawOrLabel = raw_or_label
-    , exportDataAccessGroups = export_data_access_groups_string
-    # , records = records_collapsed
-    # , fields = "studyid,referral_source" #fields_collapsed
-  )
-)
-r$status_code
-r$headers$status
-r$headers$statusmessage
-raw_text <- httr::content(r, "text")
-
-ds_eav <- readr::read_csv(raw_text, show_col_types  = FALSE)
-})
-# stop()
-# ds_eav$field_name
-
-
-# ---- tweak-data --------------------------------------------------------------
-
-if (!"event_id" %in% colnames(ds_eav)) {
-  ds_eav$event_id <- "dummy_1"
-}
-
-ds_metadata_expanded <-
-  ds_metadata %>%
-  dplyr::select(.data$field_name, .data$select_choices_or_calculations, .data$field_type) %>%
-  dplyr::mutate(
-    is_checkbox   = (.data$field_type == "checkbox"),
-    ids           = dplyr::if_else(.data$is_checkbox, .data$select_choices_or_calculations, "1"),
-    ids           = gsub("(\\d+),.+?(\\||$)", "\\1", .data$ids),
-    ids           = strsplit(.data$ids, " ")
-  ) %>%
-  dplyr::select(-.data$select_choices_or_calculations, -.data$field_type) %>%
-  tidyr::unnest(.data$ids) %>%
-  dplyr::transmute(
-    .data$is_checkbox,
-    field_name          = dplyr::if_else(.data$is_checkbox, paste0(.data$field_name, "___", .data$ids), .data$field_name)
-  )
-
-distinct_checkboxes <-
-  ds_metadata_expanded %>%
-  dplyr::filter(.data$is_checkbox) %>%
-  dplyr::pull(.data$field_name)
-
-ds_possible_checkbox_rows <-
-  tidyr::crossing(
-    field_name = distinct_checkboxes,
-    record     = unique(ds_eav$record),
-    field_type = "checkbox",
-    event_id   = unique(ds_eav$event_id)
-  )
-
-# ds_metadata %>%
-#   dplyr::filter(field_type %in% c("calc", "file")) %>%
-#   dplyr::select_("field_name")
-variables_to_keep <-
-  ds_metadata_expanded %>%
-  dplyr::select(.data$field_name) %>%
-  dplyr::union(
-    ds_variable %>%
-      dplyr::select(field_name = .data$export_field_name) %>%
-      dplyr::filter(grepl("^\\w+?_complete$", .data$field_name))
-  ) %>%
-  dplyr::pull(.data$field_name) #%>% rev()
-
-ds_eav_2 <-
-  ds_eav %>%
-  dplyr::left_join(
-    ds_metadata %>%
-      dplyr::select(.data$field_name, .data$field_type),
-    by = "field_name"
-  ) %>%
-  dplyr::mutate(
-    field_name = dplyr::if_else(!is.na(.data$field_type) & (.data$field_type == "checkbox"), paste0(.data$field_name, "___", .data$value), .data$field_name)
-  ) %>%
-  dplyr::full_join(ds_possible_checkbox_rows, by=c("record", "field_name", "field_type", "event_id")) %>%
-  dplyr::mutate(
-    value      = dplyr::if_else(!is.na(.data$field_type) & (.data$field_type == "checkbox"), as.character(!is.na(.data$value)), .data$value)
-  )
-ds <-
-  ds_eav_2 %>%
-  dplyr::select(-.data$field_type) %>%
-  # dplyr::select(-.data$redcap_repeat_instance) %>%        # TODO: need a good fix for repeats
-  # tidyr::drop_na(event_id) %>%                            # TODO: need a good fix for repeats
-  tidyr::spread(key = .data$field_name, value = .data$value) %>%
-  dplyr::select(.data = ., !!intersect(variables_to_keep, colnames(.)))
-
-ds_2 <-
-  ds %>%
-  dplyr::mutate_if(is.character, ~type.convert(., as.is = FALSE)) %>%
-  dplyr::mutate_if(is.factor   , as.character)
-
-
-# ---- verify-values -----------------------------------------------------------
-setdiff(colnames(ds_expected), colnames(ds_2))
-setdiff(colnames(ds_2), colnames(ds_expected))
-
-# setdiff(colnames(ds_3), colnames(ds_2))
-# setdiff(colnames(ds_2), colnames(ds_3))
-# testit::assert("All IDs should be nonmissing and positive.", all(!is.na(ds$CountyID) & (ds$CountyID>0)))
-
-
-# ---- old-snippets ------------------------------------------------------------
-
-# TODO: get this list from metadata, in case there are columns that aren't yet populated.
-# checkboxes <- ds_eav_2 %>%
-#   dplyr::filter(field_type=="checkbox") %>%
-#   dplyr::distinct(field_name) %>%
-#   .[["field_name"]] %>%
-#   sort()
-
-# strsplit(ds_meta_checkbox$select_choices_or_calculations[[1]], split="\\s*\\|\\s*", perl=FALSE)[[1]]
-
-# checkbox_ids <-
-#   ds_meta_checkbox$select_choices_or_calculations[1] %>%
-#   strsplit( split="\\s*\\|\\s*", perl=FALSE) %>%
-#   .[[1]] %>%
-#   gsub("(\\d{1,}),\\s*.+", "\\1", ., perl=TRUE) %>%
-#   as.integer()
-#
-# ds_meta_checkbox$select_choices_or_calculations %>%
-#   gsub("(\\d+),.+?(\\||$)", "\\1", .)
-#
-# ds_2 <- ds_2 %>%
-#   dplyr::mutate_at(
-#     .cols = dplyr::vars(dplyr::one_of(checkboxes)),
-#     .funs = function(x) !is.na(x)                       # If there's any value, then it's TRUE.  Missingness is converted to FALSE.
-#   )
diff --git a/playgrounds/local-token.R b/playgrounds/local-token.R
deleted file mode 100644
index 38ef7ab0..00000000
--- a/playgrounds/local-token.R
+++ /dev/null
@@ -1,60 +0,0 @@
-path_credential          <- "./inst/misc/example.credentials"
-project_id               <- 153L
-
-check_url                <- TRUE
-check_username           <- FALSE
-check_token_pattern      <- TRUE
-
-# Check that the file exists and read it into a data frame.
-if( !file.exists(path_credential) ) stop("The credential file was not found.")
-# ds_credentials <- readr::read_csv(path_credential, comment = "#")
-ds_credentials <- utils::read.csv(path_credential, comment.char="#")
-
-# Select only the records with a matching project id.
-ds_credential <- ds_credentials[ds_credentials$project_id==project_id, ]
-
-# Check that one and only one record matches the project id.
-if( nrow(ds_credential)==0L ) {
-  stop("The project_id was not found in the csv credential file.")
-} else if( nrow(ds_credential) > 1 ) {
-  stop("More than one matching project_id was found in the csv credential file.  There should be only one.")
-} else {
-  credential <- list(
-    redcap_uri   = ds_credential$redcap_uri[1],
-    username     = ds_credential$username[1],
-    project_id   = ds_credential$project_id[1],
-    token        = ds_credential$token[1],
-    comment      = ds_credential$comment[1]
-  )
-}
-
-# Progress through the optional checks
-if( check_url & !grepl("https://", credential$redcap_uri, perl=TRUE) ) {
-  error_message_username <- paste(
-    "The REDCap URL does not reference an https address.  First check",
-    "that the URL is correct, and then consider using SSL to encrypt",
-    "the REDCap webserver.  Set the `check_url` parameter to FALSE",
-    "if you're sure you have the correct file & file contents."
-  )
-  stop(error_message_username)
-} else if( check_username & (Sys.info()["user"]!=credential$username) ) {
-  error_message_username <- paste(
-    "The username (according to R's `Sys.info()['user']` doesn't match the",
-    "username in the credentials file.  This is a friendly check, and",
-    "NOT a security measure.  Set the `check_username` parameter to FALSE",
-    "if you're sure you have the correct file & file contents.",
-    "Otherwise, you may be pointing to the wrong credentials file."
-  )
-  stop(error_message_username)
-} else if( check_token_pattern & !grepl("[A-Z0-9]{32}", credential$token, perl=TRUE) ) {
-  error_message_token <- paste(
-    "A REDCap token should be a string of 32 digits and uppercase",
-    "characters.  The retrieved value was not.",
-    "Set the `check_token_pattern` parameter to FALSE",
-    "if you're sure you have the correct file & file contents."
-  )
-  stop(error_message_token)
-}
-
-# Return to caller.
-return( credential )
diff --git a/playgrounds/metadata-2.R b/playgrounds/metadata-2.R
deleted file mode 100644
index 6001af9c..00000000
--- a/playgrounds/metadata-2.R
+++ /dev/null
@@ -1,118 +0,0 @@
-# ---- commas-as-decimals ------------------------------------------------------
-credential  <- retrieve_credential_testing("decimal-comma-and-dot")
-m <- redcap_metadata_read(credential$redcap_uri, credential$token)$data
-m$text_validation_type_or_show_slider_number
-
-# ---- so-example --------------------------------------------------------------
-# https://stackoverflow.com/q/70147474/1082435
-fxs <- c(
-  "Sepal.Length"   = "\\(x) x *   1",
-  "Sepal.Width"    = "\\(x) x *  10",
-  "Petal.Length"   = "\\(x) x * 100"
-)
-
-d <- iris[1:5, 1:3]
-for (variable in colnames(d)) {
-  fx <- base::eval(base::parse(text = fxs[[variable]]))
-  d[[variable]] <- fx(d[[variable]])
-}
-d
-
-# ---- longitudinal ------------------------------------------------------
-credential  <- retrieve_credential_testing("longitudinal")
-d <- redcap_read_oneshot(credential$redcap_uri, credential$token, col_types = readr::cols(.default = readr::col_character()))$data
-d_m <- redcap_metadata_read(credential$redcap_uri, credential$token)$data
-d_m$text_validation_type_or_show_slider_number
-d$comments       <- NULL # wordy cells throw off visibility
-d$study_comments <- NULL # wordy cells throw off visibility
-d$vob7           <- NULL # wordy cells throw off visibility
-d$vob14          <- NULL # wordy cells throw off visibility
-
-# ds_mapping_validation_name <-
-#   tibble::tribble(
-#     ~validation_name, ~fx_export,
-#     "number", '\\(x) readr::parse_number(x)',
-#     "number_comma_decimal", '\\(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ,\n))',
-#     "phone", '\\(x) readr::parse_character(x)',
-#     "date_ymd", '\\(x) readr::parse_date(x)',
-#   )
-
-ds_mapping_validation_name <-
-  "misc/validation-transformation.yml" |>
-  system.file(package = "REDCapR") |>
-  yaml::yaml.load_file() |>
-  purrr::map_df(tibble::as_tibble)
-
-ds_mapping_validation_name
-
-f <- eval(parse(text = ds_mapping_validation_name$fx_export[3]))
-f("234,01")
-
-fxs <-
-  d_m |>
-  dplyr::select(
-    field_name,
-    validation_name = text_validation_type_or_show_slider_number
-  ) |>
-  dplyr::left_join(ds_mapping_validation_name, by = "validation_name") |>
-  tidyr::drop_na(fx_export) |>
-  dplyr::pull(fx_export, name = field_name)
-
-d <- tibble::as_tibble(d)
-for (variable in names(fxs)) {
-  fx <- base::eval(base::parse(text = fxs[[variable]]))
-  d[[variable]] <- fx(d[[variable]])
-}
-d
-
-
-# ---- create-project-for-testing ----------------------------------------------
-# ds_dictionary <-
-ds_mapping_validation_name |>
-  dplyr::select(
-    field_name    = validation_name,
-    field_label   = validation_label,
-  ) |>
-  dplyr::mutate(
-    form_name     = "form_1",
-    section_header                              = "",
-    field_type                                  = "text",
-    select_choices_or_calculations              = "",
-    field_note                                  = "",
-    text_validation_type_or_show_slider_number  = field_name,
-    text_validation_min                         = "",
-    text_validation_max                         = "",
-    identifier                                  = "",
-    branching_logic                             = "",
-    required_field                              = "",
-    custom_alignment                            = "",
-    question_number                             = "",
-    matrix_group_name                           = "",
-    matrix_ranking                              = "",
-    field_annotation                            = "",
-  ) |>
-  dplyr::select(
-    field_name,
-    form_name,
-    section_header,
-    field_type,
-    field_label,
-    select_choices_or_calculations,
-    field_note,
-    text_validation_type_or_show_slider_number,
-    text_validation_min,
-    text_validation_max,
-    identifier,
-    branching_logic,
-    required_field,
-    custom_alignment,
-    question_number,
-    matrix_group_name,
-    matrix_ranking,
-    field_annotation,
-  ) |>
-  readr::write_csv("inst/test-data/projects/validation-types-1/dictionary.csv")
-
-ds_mapping_validation_name$validation_name |>
-  paste(collapse=",") |>
-  readr::write_file("inst/test-data/projects/validation-types-1/data.csv")
diff --git a/playgrounds/metadata-reflect-coltypes.R b/playgrounds/metadata-reflect-coltypes.R
deleted file mode 100644
index 3a0b33bb..00000000
--- a/playgrounds/metadata-reflect-coltypes.R
+++ /dev/null
@@ -1,296 +0,0 @@
-rm(list = ls(all.names = TRUE))
-import::from("magrittr", "%>%")
-
-uri   <- "https://bbmc.ouhsc.edu/redcap/api/"
-token <- "9A81268476645C4E5F03428B8AC3AA7B" # 153
-token <- "0434F0E9CF53ED0587847AB6E51DE762" # 212
-# token <- "CCB7E11837D41126D67C744F97389E04" # 753 - superwide
-# token <- "054009B8FBB899DED4D00F29792816AD" # 1400 - Repeating Instruments # 753 - superwide
-# token <- "221E86DABFEEA233067C6889991B7FBB" # 1425 - Potentially problematic dictionary
-# token <- "8F5313CAA266789F560D79EFCEE2E2F1" # 2634 - Validation Types
-
-# Retrieve the info necessary to infer the likely data types
-d_var  <- REDCapR::redcap_variables(        uri, token, verbose = FALSE)$data
-d_meta <- REDCapR::redcap_metadata_read(    uri, token, verbose = FALSE)$data
-d_inst <- REDCapR::redcap_instruments(      uri, token, verbose = FALSE)$data
-d_proj <- REDCapR::redcap_project_info_read(uri, token, verbose = FALSE)$data
-
-# Determine status of autonumbering and instrument complete
-.record_field        <- d_var$original_field_name[1]
-.autonumber          <- d_proj$record_autonumbering_enabled[1]
-.form_complete_boxes <- paste0(d_inst$instrument_name, "_complete")
-
-locale_current  <- readr::locale()
-decimal_period  <- (locale_current$decimal_mark == ".")
-decimal_comma   <- (locale_current$decimal_mark == ",")
-
-# Prepare var to be joined
-d_var <-
-  d_var %>%
-  dplyr::select(
-    field_name = export_field_name,
-    field_name_original  = original_field_name
-  )
-
-d_complete <-
-  tibble::tibble(
-    field_name  = .form_complete_boxes,
-    field_type  = "complete",
-    vt          = NA_character_,
-  )
-
-d_again <-
-  tibble::tibble(
-    field_name  = character(0),
-    field_type  = character(0),
-    vt          = character(0),
-  )
-
-if (d_proj$is_longitudinal[1]) {
-  d_again <-
-    d_again %>%
-    dplyr::union_all(
-      tibble::tibble(
-        field_name  = "redcap_event_name",
-        field_type  = "event_name",
-        vt          = NA_character_,
-      )
-    )
-}
-if (d_proj$has_repeating_instruments_or_events[1]) {
-  d_again <-
-    d_again %>%
-    dplyr::union_all(
-      tibble::tibble(
-        field_name  = c("redcap_repeat_instrument", "redcap_repeat_instance"),
-        field_type  = c("repeat_instrument"       , "repeat_instance"),
-        vt          = NA_character_,
-      )
-    )
-}
-
-# Prepare metadata to be joined
-d_meta <-
-  d_meta %>%
-  dplyr::select(
-    field_name_original  = field_name,
-    field_type,
-    text_validation_type_or_show_slider_number,
-  ) %>%
-  dplyr::filter(field_type != "descriptive") %>%
-  dplyr::left_join(d_var, by = "field_name_original") %>%
-  dplyr::mutate(
-    field_name = dplyr::coalesce(field_name, field_name_original),
-  ) %>%
-  dplyr::select(
-    field_name,
-    field_type,
-    vt            = text_validation_type_or_show_slider_number,
-  ) %>%
-  tibble::add_row(d_again, .after = 1) %>%
-  dplyr::union_all(d_complete)
-
-setdiff(d_meta$field_name, d_var$field_name)
-setdiff(d_var$field_name, d_meta$field_name)
-# [1] "signature"   "file_upload" "descriptive"
-
-# Translate the four datasets into a single `readr:cols()` string printed to the console
-meat <-
-  d_meta %>%
-  dplyr::mutate(
-    # vt          = dplyr::if_else(.data$field_name %in% .form_complete_boxes, "complete", vt),
-    autonumber  = (.autonumber & (.data$field_name == .record_field)),
-  ) %>%
-  dplyr::mutate(
-    response =
-      dplyr::case_when(
-        autonumber                                          ~ paste0("col_integer()"                        , "~~record_autonumbering is enabled for the project"),
-        field_type == "event_name"                          ~ paste0("col_character()"                      , "~~longitudinal event_name"),
-        field_type == "repeat_instrument"                   ~ paste0("col_character()"                      , "~~repeat_instrument"),
-        field_type == "repeat_instance"                     ~ paste0("col_integer()"                        , "~~repeat_instance"),
-        field_type == "truefalse"                           ~ paste0("col_logical()"                        , "~~field_type is truefalse"),
-        field_type == "yesno"                               ~ paste0("col_logical()"                        , "~~field_type is yesno"),
-        field_type == "checkbox"                            ~ paste0("col_logical()"                        , "~~field_type is checkbox"),
-        field_type == "radio"                               ~ paste0("col_character()"                      , "~~field_type is radio"),
-        field_type == "dropdown"                            ~ paste0("col_character()"                      , "~~field_type is dropdown"),
-        field_type == "file"                                ~ paste0("col_character()"                      , "~~field_type is file"),
-        field_type == "notes"                               ~ paste0("col_character()"                      , "~~field_type is note"),
-        field_type == "slider"                              ~ paste0("col_integer()"                        , "~~field_type is slider"),
-        field_type == "calc"                                ~ paste0("col_character()"                      , "~~field_type is calc"),
-        field_type == "descriptive"                         ~ paste0("col_character()"                      , "~~field_type is descriptive"),
-        field_type == "sql"                                 ~ paste0("col_character()"                      , "~~field_type is sql"),
-        field_type == "text" & is.na(vt)                    ~ paste0("col_character()"                      , "~~field_type is text and validation isn't set"),
-        field_type == "text" & vt == ""                     ~ paste0("col_character()"                      , "~~field_type is text and validation isn't set"),
-        field_type == "complete"                            ~ paste0("col_integer()"                        , "~~indicates completion status of form/instrument"),
-        vt == "alpha_only"                                  ~ paste0("col_character()"                      , "~~validation is 'alpha_only'"),
-        vt == "date_dmy"                                    ~ paste0("col_date()"                           , "~~validation is 'date_dmy'"),
-        vt == "date_mdy"                                    ~ paste0("col_date()"                           , "~~validation is 'date_mdy'"),
-        vt == "date_ymd"                                    ~ paste0("col_date()"                           , "~~validation is 'date_ymd'"),
-        vt == "datetime_dmy"                                ~ paste0("col_datetime(\"%Y-%m-%d %H:%M\")"     , "~~validation is 'datetime_dmy'"),
-        vt == "datetime_mdy"                                ~ paste0("col_datetime(\"%Y-%m-%d %H:%M\")"     , "~~validation is 'datetime_mdy'"),
-        vt == "datetime_seconds_dmy"                        ~ paste0("col_datetime(\"%Y-%m-%d %H:%M:%S\")"  , "~~validation is 'datetime_seconds_dmy'"),
-        vt == "datetime_seconds_mdy"                        ~ paste0("col_datetime(\"%Y-%m-%d %H:%M:%S\")"  , "~~validation is 'datetime_seconds_mdy'"),
-        vt == "datetime_seconds_ymd"                        ~ paste0("col_datetime(\"%Y-%m-%d %H:%M:%S\")"  , "~~validation is 'datetime_seconds_ymd'"),
-        vt == "datetime_ymd"                                ~ paste0("col_datetime(\"%Y-%m-%d %H:%M\")"     , "~~validation is 'datetime_ymd'"),
-        vt == "email"                                       ~ paste0("col_character()"                      , "~~validation is 'email'"),
-        vt == "integer"                                     ~ paste0("col_integer()"                        , "~~validation is 'integer'"),
-        vt == "mrn_10d"                                     ~ paste0("col_character()"                      , "~~validation is 'mrn_10d'"),
-        vt == "mrn_generic"                                 ~ paste0("col_character()"                      , "~~validation is 'mrn_generic'"),
-        vt == "number"                    &  decimal_period ~ paste0("col_double()"                         , "~~validation is 'number'"),
-        vt == "number_1dp"                &  decimal_period ~ paste0("col_double()"                         , "~~validation is 'number_1dp'"),
-        vt == "number_2dp"                &  decimal_period ~ paste0("col_double()"                         , "~~validation is 'number_2dp'"),
-        vt == "number_3dp"                &  decimal_period ~ paste0("col_double()"                         , "~~validation is 'number_3dp'"),
-        vt == "number_4dp"                &  decimal_period ~ paste0("col_double()"                         , "~~validation is 'number_4dp'"),
-        vt == "number"                    & !decimal_period ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a period, yet validation is 'number'"),
-        vt == "number_1dp"                & !decimal_period ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a period, yet validation is 'number_1dp'"),
-        vt == "number_2dp"                & !decimal_period ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a period, yet validation is 'number_2dp'"),
-        vt == "number_3dp"                & !decimal_period ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a period, yet validation is 'number_3dp'"),
-        vt == "number_4dp"                & !decimal_period ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a period, yet validation is 'number_4dp'"),
-        vt == "number_comma_decimal"      &  decimal_comma  ~ paste0("col_double()"                         , "~~validation is 'number_comma_decimal'"),
-        vt == "number_1dp_comma_decimal"  &  decimal_comma  ~ paste0("col_double()"                         , "~~validation is 'number_1dp_comma_decimal'"),
-        vt == "number_2dp_comma_decimal"  &  decimal_comma  ~ paste0("col_double()"                         , "~~validation is 'number_2dp_comma_decimal'"),
-        vt == "number_3dp_comma_decimal"  &  decimal_comma  ~ paste0("col_double()"                         , "~~validation is 'number_3dp_comma_decimal'"),
-        vt == "number_4dp_comma_decimal"  &  decimal_comma  ~ paste0("col_double()"                         , "~~validation is 'number_4dp_comma_decimal'"),
-        vt == "number_comma_decimal"      & !decimal_comma  ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a comma, yet validation is 'number_comma_decimal'"),
-        vt == "number_1dp_comma_decimal"  & !decimal_comma  ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a comma, yet validation is 'number_1dp_comma_decimal'"),
-        vt == "number_2dp_comma_decimal"  & !decimal_comma  ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a comma, yet validation is 'number_2dp_comma_decimal'"),
-        vt == "number_3dp_comma_decimal"  & !decimal_comma  ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a comma, yet validation is 'number_3dp_comma_decimal'"),
-        vt == "number_4dp_comma_decimal"  & !decimal_comma  ~ paste0("col_character()"                      , "~~locale's decimal mark isn't a comma, yet validation is 'number_4dp_comma_decimal'"),
-        vt == "phone"                                       ~ paste0("col_character()"                      , "~~validation is 'phone'"),
-        vt == "phone_australia"                             ~ paste0("col_character()"                      , "~~validation is 'phone_australia'"),
-        vt == "postalcode_australia"                        ~ paste0("col_character()"                      , "~~validation is 'postalcode_australia'"),
-        vt == "postalcode_canada"                           ~ paste0("col_character()"                      , "~~validation is 'postalcode_canada'"),
-        vt == "postalcode_french"                           ~ paste0("col_character()"                      , "~~validation is 'postalcode_french'"),
-        vt == "postalcode_germany"                          ~ paste0("col_character()"                      , "~~validation is 'postalcode_germany'"),
-        vt == "ssn"                                         ~ paste0("col_character()"                      , "~~validation is 'ssn'"),
-        vt == "time"                                        ~ paste0("col_time(\"%H:%M\")"                  , "~~validation is 'time'"),
-        vt == "time_hh_mm_ss"                               ~ paste0("col_time(\"%H:%M:%S\")"               , "~~validation is 'time_hh_mm_ss'"),
-        vt == "time_mm_ss"                                  ~ paste0("col_time(\"%M:%S\")"                  , "~~validation is 'time_mm_ss'"),
-        vt == "vmrn"                                        ~ paste0("col_character()"                      , "~~validation is 'vmrn'"),
-        vt == "zipcode"                                     ~ paste0("col_character()"                      , "~~validation is 'zipcode'"),
-        TRUE                                                ~ paste0("col_character()"                      , "~~validation doesn't have an associated col_type.  Tell us in a new REDCapR issue. "),
-      )
-  ) %>%
-  dplyr::mutate(
-    # Retrieve the col_type and the explanation
-    readr_col_type  = sub("^(col_.+)~~(.+)$", "\\1", .data$response),
-    explanation     = sub("^(col_.+)~~(.+)$", "\\2", .data$response),
-
-    # Calculate the odd number of spaces -just beyond the longest variable name.
-    padding1  = nchar(.data$field_name),
-    padding1  = max(.data$padding1) %/% 2 * 2 + 3,
-    padding2  = nchar(.data$readr_col_type),
-    padding2  = max(.data$padding2) %/% 2 * 2 + 3,
-
-    # Pad the left side before appending the right side.
-    aligned = sprintf("  %-*s = readr::%-*s, # %s", .data$padding1, .data$field_name, .data$padding2, .data$readr_col_type, .data$explanation)
-  ) %>%
-  # View()
-  # tibble::add_row(aligned = sprintf("  %-*s = readr::%-*s, # b/c %s", .data$padding1, .data$field_name, .data$padding2, .data$readr_col_type, .data$explanation)) %>%
-  dplyr::pull(.data$aligned)
-
-# Construct an explanation header that's aligned with the col_types output
-gaps <- unlist(gregexpr("[=#]", meat[1]))
-header <- sprintf(
-  "  # %-*s %-*s %s\n",
-  gaps[1] - 4,
-  "[field]",
-  gaps[2] - gaps[1] - 1,
-  "[readr col_type]",
-  "[explanation for col_type]"
-)
-
-# Sandwich the col_types output in between the opening+header and the closing
-sandwich <-
-  paste0(
-    "# col_types <- readr::cols_only( # Use `readr::cols_only()` to restrict the retrieval to only these columns\n",
-    "col_types <- readr::cols( # Use `readr::cols()` to include unspecified columns\n",
-    header,
-    paste(meat, collapse = "\n") ,
-    "\n)\n"
-  )
-
-sandwich %>%
-  cat()
-
-decimal_period_any <- any(d_meta$vt %in% c("number", "number_1dp", "number_2dp", "number_3dp", "number_4dp" ))
-decimal_comma_any  <- any(d_meta$vt %in% c("number_comma_decimal", "number_1dp_comma_decimal", "number_2dp_comma_decimal", "number_3dp_comma_decimal", "number_4dp_comma_decimal"))
-
-if (decimal_period_any && decimal_comma_any) {
-  warning(
-    "The metadata for the REDCap project has validation types ",
-    "for at least one field that specifies a comma for a decimal ",
-    "for at least one field that specifies a period for a decimal.  ",
-    "Mixing these two formats in the same proejct can cause confusion and problems.  ",
-    "Consider passing `readr::col_character()` for this field ",
-    "(to REDCapR's `col_types` parameter) and then convert the ",
-    "desired fields to R's numeric type.  ",
-    "The function `readr::parse_double()` is useful for this."
-  )
-}
-
-col_types_1 <- eval(str2expression(sandwich))
-
-col_types_2 <- readr::cols(
-  # col_types <- readr::cols_only( # Use cols_only to restrict the retrieval to only these columns
-  # [field]                       [readr col_type]                              [explanation for col_type]
-  record_id                     = readr::col_integer()                      , # record_autonumbering is enabled for the project
-  f_calculated                  = readr::col_character()                    , # field_type is calc
-  f_checkbox___0                = readr::col_logical()                      , # field_type is checkbox
-  f_checkbox___1                = readr::col_logical()                      , # field_type is checkbox
-  f_checkbox___2                = readr::col_logical()                      , # field_type is checkbox
-  f_dropdown                    = readr::col_character()                    , # field_type is dropdown
-  f_notes                       = readr::col_character()                    , # field_type is note
-  f_radio                       = readr::col_character()                    , # field_type is radio
-  f_slider                      = readr::col_integer()                      , # field_type is slider
-  f_sql                         = readr::col_character()                    , # field_type is sql
-  f_text                        = readr::col_character()                    , # field_type is text and validation isn't set
-  f_true_false                  = readr::col_logical()                      , # field_type is truefalse
-  f_yes_no                      = readr::col_logical()                      , # field_type is yesno
-  v_alpha_only                  = readr::col_character()                    , # validation is 'alpha_only'
-  v_date_dmy                    = readr::col_date()                         , # validation is 'date_dmy'
-  v_date_mdy                    = readr::col_date()                         , # validation is 'date_mdy'
-  v_date_ymd                    = readr::col_date()                         , # validation is 'date_ymd'
-  v_datetime_dmy                = readr::col_datetime("%Y-%m-%d %H:%M")     , # validation is 'datetime_dmy'
-  v_datetime_mdy                = readr::col_datetime("%Y-%m-%d %H:%M")     , # validation is 'datetime_mdy'
-  v_datetime_seconds_dmy        = readr::col_datetime("%Y-%m-%d %H:%M:%S")  , # validation is 'datetime_seconds_dmy'
-  v_datetime_seconds_mdy        = readr::col_datetime("%Y-%m-%d %H:%M:%S")  , # validation is 'datetime_seconds_mdy'
-  v_datetime_seconds_ymd        = readr::col_datetime("%Y-%m-%d %H:%M:%S")  , # validation is 'datetime_seconds_ymd'
-  v_datetime_ymd                = readr::col_datetime("%Y-%m-%d %H:%M")     , # validation is 'datetime_ymd'
-  v_email                       = readr::col_character()                    , # validation is 'email'
-  v_integer                     = readr::col_integer()                      , # validation is 'integer'
-  v_mrn_10d                     = readr::col_character()                    , # validation is 'mrn_10d'
-  v_mrn_generic                 = readr::col_character()                    , # validation is 'mrn_generic'
-  v_number                      = readr::col_double()                       , # validation is 'number'
-  v_number_1dp                  = readr::col_double()                       , # validation is 'number_1dp'
-  v_number_2dp                  = readr::col_double()                       , # validation is 'number_2dp'
-  v_number_3dp                  = readr::col_double()                       , # validation is 'number_3dp'
-  v_number_4dp                  = readr::col_double()                       , # validation is 'number_4dp'
-  v_number_comma_decimal        = readr::col_character()                    , # locale's decimal mark isn't a comma, yet validation is 'number_comma_decimal'
-  v_number_1dp_comma_decimal    = readr::col_character()                    , # locale's decimal mark isn't a comma, yet validation is 'number_1dp_comma_decimal'
-  v_number_2dp_comma_decimal    = readr::col_character()                    , # locale's decimal mark isn't a comma, yet validation is 'number_2dp_comma_decimal'
-  v_number_3dp_comma_decimal    = readr::col_character()                    , # locale's decimal mark isn't a comma, yet validation is 'number_3dp_comma_decimal'
-  v_number_4dp_comma_decimal    = readr::col_character()                    , # locale's decimal mark isn't a comma, yet validation is 'number_4dp_comma_decimal'
-  v_phone                       = readr::col_character()                    , # validation is 'phone'
-  v_phone_australia             = readr::col_character()                    , # validation is 'phone_australia'
-  v_postalcode_australia        = readr::col_character()                    , # validation is 'postalcode_australia'
-  v_postalcode_canada           = readr::col_character()                    , # validation is 'postalcode_canada'
-  v_postalcode_french           = readr::col_character()                    , # validation is 'postalcode_french'
-  v_postalcode_germany          = readr::col_character()                    , # validation is 'postalcode_germany'
-  v_ssn                         = readr::col_character()                    , # validation is 'ssn'
-  v_time_hh_mm                  = readr::col_time("%H:%M")                  , # validation is 'time'
-  v_time_hh_mm_ss               = readr::col_time("%H:%M:%S")               , # validation is 'time_hh_mm_ss'
-  v_time_mm_ss                  = readr::col_time("%M:%S")                  , # validation is 'time_mm_ss'
-  v_vmrn                        = readr::col_character()                    , # validation is 'vmrn'
-  v_zipcode                     = readr::col_character()                    , # validation is 'zipcode'
-  form_1_complete               = readr::col_integer()                      , # indicates completion status of form/instrument
-)
-identical(col_types_1, col_types_2)
-
-d1 <- REDCapR::redcap_read_oneshot(uri, token, col_types = eval(str2expression(sandwich)))$data
-readr::problems(d1)
-
-# col_types <- REDCapR::redcap_metadata_suggest(uri, token, col_types = col_types_2)$data
-
-d2 <- REDCapR::redcap_read_oneshot(uri, token, col_types = col_types_2)$data
-readr::problems(d2)
diff --git a/playgrounds/ssl_playground.R b/playgrounds/ssl_playground.R
deleted file mode 100644
index 6d600973..00000000
--- a/playgrounds/ssl_playground.R
+++ /dev/null
@@ -1,99 +0,0 @@
-rm(list=ls(all=TRUE)) #Clear the memory of variables from previous run.
-## This playground comes directly for @rparrish's thread at https://github.com/OuhscBbmc/REDCapR/issues/55
-
-# Credential for OU's test server
-redcap_uri <- "https://bbmc.ouhsc.edu/redcap/api/"
-# token <- "9A81268476645C4E5F03428B8AC3AA7B" #For `U
-token <- "D70F9ACD1EDD6F151C6EA78683944E98"
-
-
-# # Credentials for Vandy's EC2 test server
-redcap_uri <- "https://www.redcapplugins.org/api/"
-# redcap_uri <- "https://www.redcapplugins.org/redcap_v6.5.0/API/"
-token <- "D96029BFCE8FFE76737BFC33C2BCC72E" #For `UnitTestPhiFree` account and the simple project (pid 27) on Vandy's test server.
-
-# SO post:
-# https://stackoverflow.com/questions/15347233/ssl-certificate-failed-for-twitter-in-r
-cert_location <- system.file("cacert.pem", package="openssl")
-file.exists(cert_location)
-
-##########################################################################
-# library(curl) #devtools::install_github("jeroenooms/curl")
-curl::curl_fetch_memory(url=redcap_uri)
-
-##########################################################################
-library(httr) #devtools::install_github("hadley/httr")
-post_body <- list(
-    token                  = token,
-    content                = 'record',
-    format                 = 'csv',
-    type                   = 'flat',
-    rawOrLabel             = 'raw',
-    exportDataAccessGroups = 'true'
-)
-
-httr_raw <- httr::POST(
-    url            = redcap_uri,
-    body           = post_body,
-    config         = config(cainfo=cert_location),
-    httr::verbose()
-)
-httr_raw
-content(httr_raw, type = "text")
-
-##########################################################################
-# library(httr) #devtools::install_github("hadley/httr")
-# post_body <- list(
-#   token = token,
-#   content = 'record',
-#   format = 'csv',
-#   type = 'flat',
-#   rawOrLabel = 'raw',
-#   exportDataAccessGroups = 'true'
-# )
-#
-# # set_config(ssl_verifypeer=FALSE)
-# # config(ssl_verifypeer=FALSE)
-# # config()
-#
-# httr_raw <- httr::POST(
-#   url = redcap_uri,
-#   body = post_body#,
-#   # config = config(ssl_verifypeer=FALSE)
-#   # config = httr::config(ssl.verifypeer=FALSE)
-#   #httr::verbose()
-# )
-# httr_raw
-# content(httr_raw, type = "text")
-
-##########################################################################
-library(RCurl)
-# SO post: https://stackoverflow.com/questions/15347233/ssl-certificate-failed-for-twitter-in-r
-file.exists(system.file("ssl-certs/mozilla-ca-root.crt", package="REDCapR"))
-
-rcurl_raw <- RCurl::postForm(
-  uri = redcap_uri
-  , token = token
-  , content = 'record'
-  , format = 'csv'
-  , type = 'flat'
-  , rawOrLabel = 'raw'
-  , exportDataAccessGroups = 'true'
-  , .opts = RCurl::curlOptions(cainfo = system.file("ssl-certs/mozilla-ca-root.crt", package="REDCapR"))
-  # , .opts = RCurl::curlOptions(ssl.verifypeer=FALSE)
-)
-rcurl_raw
-
-##########################################################################
-library(REDCapR)
-redcapr_data <- redcap_read_oneshot(redcap_uri=redcap_uri, token=token)
-redcapr_data$data
-
-##########################################################################
-library(redcapAPI) # devtools::install_github("nutterb/redcapAPI")
-# rcon <- redcapAPI::redcapConnection(url=redcap_uri, token=token, config = list())
-# rcon <- redcapAPI::redcapConnection(url=redcap_uri, token=token, config = list(ssl_verifypeer=FALSE))
-# rcon <- redcapAPI::redcapConnection(url=redcap_uri, token=token, config = httr::config(ssl_verifypeer=FALSE))
-# rcon <- redcapAPI::redcapConnection(url=redcap_uri, token=token, config = httr::config())
-rcon <- redcapAPI::redcapConnection(url=redcap_uri, token=token)
-redcapAPI::exportRecords(rcon)