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

updated vignette and formatting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-18 16:26:10 +01:00
commit 4e7af7d01f
No known key found for this signature in database
5 changed files with 97 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

11
R/shiny_cast.R
View file

@ -31,11 +31,13 @@ shiny_cast <- function(...) {
#'
#' @examples
#' file_extension(list.files(here::here(""))[[2]])[[1]]
#' file_extension(c("file.cd..ks","file"))
#' file_extension(c("file.cd..ks", "file"))
file_extension <- function(filenames) {
sub(pattern = "^(.*\\.|[^.]+)(?=[^.]*)", replacement = "",
filenames,
perl = TRUE)
sub(
pattern = "^(.*\\.|[^.]+)(?=[^.]*)", replacement = "",
filenames,
perl = TRUE
)
}
#' Flexible file import based on extension
@ -74,4 +76,3 @@ read_input <- function(file, consider.na = c("NA", '""', "")) {
df
}