From 9a069a422fe932b6e667e0c81affe3399aa02e0b Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 18 Nov 2024 14:41:30 +0100
Subject: [PATCH] use tools file_ext instead of own

---
 R/redcapcast_data.R   | 3 +++
 R/shiny_cast.R        | 4 ++--
 man/file_extension.Rd | 4 ++--
 3 files changed, 7 insertions(+), 4 deletions(-)

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]]