andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37: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

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'250317_1458'
app_version <- function()'250317_2026'

2
R/data-import.R
View file

@ -84,7 +84,7 @@ data_import_server <- function(id) {
shiny::observeEvent(data_file$data(), {
shiny::req(data_file$data())
browser()
rv$data_temp <- data_file$data()
rv$code <- append_list(data = data_file$code(), list = rv$code, index = "import")
})

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)