andreas/stRoke
1
0
Fork 0
mirror of https://github.com/agdamsbo/stRoke.git synced 2024-10-29 19:01:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

REDCapRITS moved to Suggests

Browse Source
This commit is contained in:
AG Damsbo 2022-12-21 08:06:05 +01:00
parent 891a8e246d
commit 48120cad4b
3 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DESCRIPTION
View File

@ -13,18 +13,20 @@ Roxygen: list(markdown = TRUE)
RoxygenNote: 7.2.3 RoxygenNote: 7.2.3
LazyData: true LazyData: true
Suggests: Suggests:
REDCapRITS (>= 0.2.2.1),
remotes,
spelling, spelling,
testthat (>= 3.0.0) testthat (>= 3.0.0)
Language: en-US Language: en-US
Config/testthat/edition: 3 Config/testthat/edition: 3
Imports: Imports:
cli,
dplyr, dplyr,
ggplot2, ggplot2,
gtsummary, gtsummary,
MASS, MASS,
rankinPlot, rankinPlot,
REDCapR, REDCapR,
REDCapRITS (>= 0.2.2),
stats, stats,
tidyr tidyr
Depends: Depends:

2
NAMESPACE
View File

@ -14,8 +14,6 @@ export(read_redcap_tables)
export(source_lines) export(source_lines)
import(ggplot2) import(ggplot2)
importFrom(MASS,polr) importFrom(MASS,polr)
importFrom(REDCapR,redcap_read)
importFrom(REDCapRITS,REDCap_split)
importFrom(dplyr,mutate) importFrom(dplyr,mutate)
importFrom(dplyr,select) importFrom(dplyr,select)
importFrom(gtsummary,add_overall) importFrom(gtsummary,add_overall)

12
R/read_redcap_tables.R
View File

@ -13,9 +13,6 @@
#' @return list of instruments #' @return list of instruments
#' @export #' @export
#' #'
#' @importFrom REDCapR redcap_read
#' @importFrom REDCapRITS REDCap_split
#'
#' @examples #' @examples
#' # Examples will be provided later #' # Examples will be provided later
read_redcap_tables <- function(uri, read_redcap_tables <- function(uri,
@ -26,6 +23,15 @@ read_redcap_tables <- function(uri,
forms=NULL, forms=NULL,
generics=c("record_id", "redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance")){ generics=c("record_id", "redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance")){
if (requireNamespace("REDCapRITS", quietly = FALSE)) {
cli::cli_abort(
c("x" = "The package REDCapRITS is not installed.",
"i" = "Please install REDCapRITS by running \"remotes::install_github('agdamsbo/REDCapRITS/R')\".")
)
}
# Notes to self: Based on the metadata, this functionality could be introduced without using the REDCapRITS package.. To be tried.. # Notes to self: Based on the metadata, this functionality could be introduced without using the REDCapRITS package.. To be tried..
d <- REDCapR::redcap_read (redcap_uri = uri, d <- REDCapR::redcap_read (redcap_uri = uri,