andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 05:07:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

use tools file_ext instead of own

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-18 14:41:30 +01:00
commit 9a069a422f
No known key found for this signature in database
3 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/redcapcast_data.R
View file

@ -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}

4
R/shiny_cast.R
View file

@ -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(
{