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

cleaning

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-21 14:22:36 +01:00
commit ae1c120cd8
No known key found for this signature in database
4 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/shiny_cast.R
View file

@ -50,7 +50,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 <- tools::file_ext(file)
ext <- tolower(tools::file_ext(file))
tryCatch(
{
@ -66,7 +66,7 @@ read_input <- function(file, consider.na = c("NA", '""', "")) {
df <- readr::read_rds(file = file)
}else {
stop("Input file format has to be on of:
'.csv', '.xls', '.xlsx', '.dta', '.rds' or '.ods'")
'.csv', '.xls', '.xlsx', '.dta', '.ods' or '.rds'")
}
},
error = function(e) {