From 1d852fc39e99ee8a42fc1c20f7b629957fd861a1 Mon Sep 17 00:00:00 2001
From: Jack Roberts <93294554+jrob95@users.noreply.github.com>
Date: Mon, 12 Aug 2024 14:22:43 +1000
Subject: [PATCH 1/2] Update redcap-survey-link-export-oneshot.R

Update roxygen comments to reflect actual use of function
---
 R/redcap-survey-link-export-oneshot.R | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/R/redcap-survey-link-export-oneshot.R b/R/redcap-survey-link-export-oneshot.R
index 718d8036..9e110a1d 100644
--- a/R/redcap-survey-link-export-oneshot.R
+++ b/R/redcap-survey-link-export-oneshot.R
@@ -1,8 +1,8 @@
 #' @title
-#' Download a file from a REDCap project record
+#' Get survey link from REDCap
 #'
 #' @description
-#' This function uses REDCap's API to download a file.
+#' This function uses REDCap's API to get the link for a survey.
 #'
 #' @param redcap_uri The
 #' [uri](https://en.wikipedia.org/wiki/Uniform_Resource_Identifier)/url
@@ -11,10 +11,12 @@
 #' Required.
 #' @param token The user-specific string that serves as the password for a
 #' project.  Required.
-#' @param record The record ID where the file is to be imported. Required
+#' @param record The record ID associated with the
+#' survey link. Required
 #' @param instrument The name of the instrument associated with the
 #' survey link.  Required
-#' @param event The name of the event where the file is saved in REDCap.
+#' @param event The name of the event associated with the
+#' survey link.
 #' Optional
 #' @param verbose A boolean value indicating if `message`s should be printed
 #' to the R console during the operation.  Optional.
@@ -27,6 +29,7 @@
 #'
 #' @return
 #' Currently, a list is returned with the following elements,
+#' * `survey_link`: a character string containing the URL for the survey.
 #' * `success`: A boolean value indicating if the operation was apparently
 #' successful.
 #' * `status_code`: The
@@ -34,14 +37,14 @@
 #' of the operation.
 #' * `outcome_message`: A human readable string indicating the operation's
 #' outcome.
-#' * `records_affected_count`: The number of records inserted or updated.
-#' * `affected_ids`: The subject IDs of the inserted or updated records.
+#' * `instrument`: The instrument associated with the survey link.
+#' * `records_affected_count`: The number of records associated with 
+#' the survey link.
+#' * `affected_ids`: The subject IDs associated with the survey link.
 #' * `elapsed_seconds`: The duration of the function.
 #' * `raw_text`: If an operation is NOT successful, the text returned by
 #' REDCap.  If an operation is successful, the `raw_text` is returned as an
 #' empty string to save RAM.
-#' * `file_name`: The name of the file persisted to disk. This is useful if
-#' the name stored in REDCap is used (which is the default).
 #'
 #' @details
 #' Currently, the function doesn't modify any variable types to conform to

From 076c26844856c19363bd3c248ee3c3c898f916a2 Mon Sep 17 00:00:00 2001
From: Jack Roberts <93294554+jrob95@users.noreply.github.com>
Date: Mon, 12 Aug 2024 15:47:21 +1000
Subject: [PATCH 2/2] Update test-survey-link-export-oneshot.R

---
 tests/testthat/test-survey-link-export-oneshot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-survey-link-export-oneshot.R b/tests/testthat/test-survey-link-export-oneshot.R
index 4171d6f6..72d09846 100644
--- a/tests/testthat/test-survey-link-export-oneshot.R
+++ b/tests/testthat/test-survey-link-export-oneshot.R
@@ -60,7 +60,7 @@ test_that("Nonexistent Record ID", {
   expect_equal(result$instrument, "participant_morale_questionnaire")
   expect_equal(result$records_affected_count, 0L)
   expect_equal(result$affected_ids, character(0))
-  expect_equal(result$raw_text, "ERROR: The record '-1' does not exist")
+  expect_equal(result$raw_text, "ERROR: The record \"-1\" does not exist")
 })
 
 rm(credential, record, instrument)