andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 09:59:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

code export bug

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-04-23 14:59:16 +02:00
parent f7e6afabb8
commit 2df3dd50f5
No known key found for this signature in database
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
inst/apps/FreesearchR/app.R
View file

@ -9018,7 +9018,7 @@ server <- function(input, output, session) {
rv$data_original <- temp_data |> rv$data_original <- temp_data |>
default_parsing() default_parsing()
rv$code$import <- list( rv$code$import_print <- list(
rv$code$import, rv$code$import,
rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))), rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))),
rlang::call2(.fn = "default_parsing", .ns = "FreesearchR") rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
@ -9304,7 +9304,7 @@ server <- function(input, output, session) {
# }) # })
output$code_import <- shiny::renderUI({ output$code_import <- shiny::renderUI({
prismCodeBlock(paste0("#Data import\n", rv$code$import)) prismCodeBlock(paste0("#Data import\n", rv$code$import_print))
}) })
output$code_data <- shiny::renderUI({ output$code_data <- shiny::renderUI({

4
inst/apps/FreesearchR/server.R
View file

@ -189,7 +189,7 @@ server <- function(input, output, session) {
rv$data_original <- temp_data |> rv$data_original <- temp_data |>
default_parsing() default_parsing()
rv$code$import <- list( rv$code$import_print <- list(
rv$code$import, rv$code$import,
rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))), rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))),
rlang::call2(.fn = "default_parsing", .ns = "FreesearchR") rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
@ -475,7 +475,7 @@ server <- function(input, output, session) {
# }) # })
output$code_import <- shiny::renderUI({ output$code_import <- shiny::renderUI({
prismCodeBlock(paste0("#Data import\n", rv$code$import)) prismCodeBlock(paste0("#Data import\n", rv$code$import_print))
}) })
output$code_data <- shiny::renderUI({ output$code_data <- shiny::renderUI({