andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 13:30:23 +01:00
Code Issues Packages Projects Releases 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
parent 954f58bf1d
commit 9a069a422f
No known key found for this signature in database
3 changed files with 7 additions and 4 deletions
Show Stats 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{age_integer}{Age integer, numeric}
#' \item{sex}{Legal sex, character} #' \item{sex}{Legal sex, character}
#' \item{cohabitation}{Cohabitation status, 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{hypertension}{Hypertension, character}
#' \item{diabetes}{diabetes, character} #' \item{diabetes}{diabetes, character}
#' \item{region}{region, 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 #' @param filenames file names
#' #'
@ -49,7 +49,7 @@ file_extension <- function(filenames) {
#' @examples #' @examples
#' read_input("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/data/sample.csv") #' read_input("https://raw.githubusercontent.com/agdamsbo/cognitive.index.lookup/main/data/sample.csv")
read_input <- function(file, consider.na = c("NA", '""', "")) { read_input <- function(file, consider.na = c("NA", '""', "")) {
ext <- file_extension(file) ext <- tools::file_ext(file)
tryCatch( tryCatch(
{ {

4
man/file_extension.Rd
View File

@ -2,7 +2,7 @@
% Please edit documentation in R/shiny_cast.R % Please edit documentation in R/shiny_cast.R
\name{file_extension} \name{file_extension}
\alias{file_extension} \alias{file_extension}
\title{Helper to import files correctly} \title{DEPRECATED Helper to import files correctly}
\usage{ \usage{
file_extension(filenames) file_extension(filenames)
} }
@ -13,7 +13,7 @@ file_extension(filenames)
character vector character vector
} }
\description{ \description{
Helper to import files correctly DEPRECATED Helper to import files correctly
} }
\examples{ \examples{
file_extension(list.files(here::here(""))[[2]])[[1]] file_extension(list.files(here::here(""))[[2]])[[1]]