diff --git a/R/redcapcast_data.R b/R/redcapcast_data.R index 5f2d743..25bfb47 100644 --- a/R/redcapcast_data.R +++ b/R/redcapcast_data.R @@ -17,6 +17,9 @@ #' \item{age_integer}{Age integer, numeric} #' \item{sex}{Legal sex, character} #' \item{cohabitation}{Cohabitation status, character} +#' \item{con_calc}{con_calc} +#' \item{con_mrs}{con_mrs} +#' \item{consensus_complete}{consensus_complete} #' \item{hypertension}{Hypertension, character} #' \item{diabetes}{diabetes, character} #' \item{region}{region, character} diff --git a/R/shiny_cast.R b/R/shiny_cast.R index 78099bb..1ca76c0 100644 --- a/R/shiny_cast.R +++ b/R/shiny_cast.R @@ -22,7 +22,7 @@ shiny_cast <- function(...) { -#' Helper to import files correctly +#' DEPRECATED Helper to import files correctly #' #' @param filenames file names #' @@ -49,7 +49,7 @@ file_extension <- function(filenames) { #' @examples #' read_input("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/data/sample.csv") read_input <- function(file, consider.na = c("NA", '""', "")) { - ext <- file_extension(file) + ext <- tools::file_ext(file) tryCatch( { diff --git a/man/file_extension.Rd b/man/file_extension.Rd index c060902..fb90fbb 100644 --- a/man/file_extension.Rd +++ b/man/file_extension.Rd @@ -2,7 +2,7 @@ % Please edit documentation in R/shiny_cast.R \name{file_extension} \alias{file_extension} -\title{Helper to import files correctly} +\title{DEPRECATED Helper to import files correctly} \usage{ file_extension(filenames) } @@ -13,7 +13,7 @@ file_extension(filenames) character vector } \description{ -Helper to import files correctly +DEPRECATED Helper to import files correctly } \examples{ file_extension(list.files(here::here(""))[[2]])[[1]]