From 2df3dd50f5d5347d0be5cc1d0e9be9f0760189a2 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Wed, 23 Apr 2025 14:59:16 +0200
Subject: [PATCH] code export bug

---
 inst/apps/FreesearchR/app.R    | 4 ++--
 inst/apps/FreesearchR/server.R | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R
index 5c205b3..b3606e6 100644
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@@ -9018,7 +9018,7 @@ server <- function(input, output, session) {
       rv$data_original <- temp_data |>
         default_parsing()
 
-      rv$code$import <- list(
+      rv$code$import_print <- list(
         rv$code$import,
         rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))),
         rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
@@ -9304,7 +9304,7 @@ server <- function(input, output, session) {
   # })
 
   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({
diff --git a/inst/apps/FreesearchR/server.R b/inst/apps/FreesearchR/server.R
index 9403d69..8f97737 100644
--- a/inst/apps/FreesearchR/server.R
+++ b/inst/apps/FreesearchR/server.R
@@ -189,7 +189,7 @@ server <- function(input, output, session) {
       rv$data_original <- temp_data |>
         default_parsing()
 
-      rv$code$import <- list(
+      rv$code$import_print <- list(
         rv$code$import,
         rlang::expr(dplyr::select(dplyr::all_of(!!input$import_var))),
         rlang::call2(.fn = "default_parsing", .ns = "FreesearchR")
@@ -475,7 +475,7 @@ server <- function(input, output, session) {
   # })
 
   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({