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

deployed latest

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-17 20:26:30 +01:00
commit a8ab648eda
No known key found for this signature in database
6 changed files with 10 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/import-file-ext.R
View file

@ -239,10 +239,7 @@ import_file_server <- function(id,
{
req(input$file)
if (is_workbook(input$file$datapath)) shiny::req(input$sheet)
# browser()
# browser()
# req(input$skip_rows)
extension <- tools::file_ext(input$file$datapath)
parameters <- list(
@ -253,7 +250,7 @@ import_file_server <- function(id,
encoding = input$encoding,
na.strings = datamods:::split_char(input$na_label)
)
# browser()
parameters <- parameters[which(names(parameters) %in% rlang::fn_fmls_names(get(read_fns[[extension]])))]
# parameters <- parameters[which(names(parameters) %in% rlang::fn_fmls_names(read_fns[[extension]]))]
imported <- try(rlang::exec(read_fns[[extension]], !!!parameters), silent = TRUE)