testing environment variable LOCAL for js

ComPlat · Dec 18, 2024 · 3a59b9e · 3a59b9e
1 parent f5f7bec
commit 3a59b9e
Show file tree

Hide file tree

Showing 2 changed files with 70 additions and 32 deletions.
diff --git a/app/MainApp.R b/app/MainApp.R
@@ -17,6 +17,24 @@ js_scripts <- function() {
     }
 }
 
+upload_fct <- function() {
+  if (Sys.getenv("RUN_MODE") != "SERVER") {
+    res <- conditionalPanel(
+      condition = "input.conditionedPanels == 'Data'",
+      fileInput("file", "Choose CSV File",
+        accept = c(
+          "text/csv",
+          "text/comma-separated-values,text/plain",
+          ".csv"
+        )
+      )
+    )
+    return(res)
+  }
+  return(NULL)
+}
+uf <- upload_fct()
+
 app <- function() {
   js <- js_scripts()
   ui <- fluidPage(
@@ -354,22 +372,23 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      if (Sys.getenv("RUN_MODE") != "SERVER") {
-        res <- div(
-          class = "var-box-output",
-          conditionalPanel(
-            condition = "input.conditionedPanels == 'Data'",
-            fileInput("file", "Choose CSV File",
-              accept = c(
-                "text/csv",
-                "text/comma-separated-values,text/plain",
-                ".csv"
-              )
-            )
-          )
-        )
-        return(res)
-      }
+      uf
+      # if (Sys.getenv("RUN_MODE") != "SERVER") {
+      #   res <- div(
+      #     class = "var-box-output",
+      #     conditionalPanel(
+      #       condition = "input.conditionedPanels == 'Data'",
+      #       fileInput("file", "Choose CSV File",
+      #         accept = c(
+      #           "text/csv",
+      #           "text/comma-separated-values,text/plain",
+      #           ".csv"
+      #         )
+      #       )
+      #     )
+      #   )
+      #   return(res)
+      # }
     })
 
     download_file <- reactive({

diff --git a/bs/R/MainApp.R b/bs/R/MainApp.R
@@ -17,6 +17,24 @@ js_scripts <- function() {
     }
 }
 
+upload_fct <- function() {
+  if (Sys.getenv("RUN_MODE") != "SERVER") {
+    res <- conditionalPanel(
+      condition = "input.conditionedPanels == 'Data'",
+      fileInput("file", "Choose CSV File",
+        accept = c(
+          "text/csv",
+          "text/comma-separated-values,text/plain",
+          ".csv"
+        )
+      )
+    )
+    return(res)
+  }
+  return(NULL)
+}
+uf <- upload_fct()
+
 app <- function() {
   js <- js_scripts()
   ui <- fluidPage(
@@ -354,22 +372,23 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      if (Sys.getenv("RUN_MODE") != "SERVER") {
-        res <- div(
-          class = "var-box-output",
-          conditionalPanel(
-            condition = "input.conditionedPanels == 'Data'",
-            fileInput("file", "Choose CSV File",
-              accept = c(
-                "text/csv",
-                "text/comma-separated-values,text/plain",
-                ".csv"
-              )
-            )
-          )
-        )
-        return(res)
-      }
+      uf
+      # if (Sys.getenv("RUN_MODE") != "SERVER") {
+      #   res <- div(
+      #     class = "var-box-output",
+      #     conditionalPanel(
+      #       condition = "input.conditionedPanels == 'Data'",
+      #       fileInput("file", "Choose CSV File",
+      #         accept = c(
+      #           "text/csv",
+      #           "text/comma-separated-values,text/plain",
+      #           ".csv"
+      #         )
+      #       )
+      #     )
+      #   )
+      #   return(res)
+      # }
     })
 
     download_file <- reactive({