testing environment variable LOCAL for js

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

Hide file tree

Showing 2 changed files with 22 additions and 28 deletions.
diff --git a/app/MainApp.R b/app/MainApp.R
@@ -354,25 +354,22 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      showNotification(Sys.getenv("RUN_MODE"), duration = 0)
-      showNotification(as.character(Sys.getenv("RUN_MODE") != "SERVER"), duration = 0)
-      res <- NULL
       if (Sys.getenv("RUN_MODE") != "SERVER") {
-      showNotification("Test", duration = 0)
-        res <- conditionalPanel(
-          condition = "input.conditionedPanels == 'Data'",
-          fileInput("file", "Choose CSV File",
-            accept = c(
-              "text/csv",
-              "text/comma-separated-values,text/plain",
-              ".csv"
+        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)
+        return(res)
       }
-      str(res)
-      return(res)
     })
 
     download_file <- reactive({

diff --git a/bs/R/MainApp.R b/bs/R/MainApp.R
@@ -354,25 +354,22 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      showNotification(Sys.getenv("RUN_MODE"), duration = 0)
-      showNotification(as.character(Sys.getenv("RUN_MODE") != "SERVER"), duration = 0)
-      res <- NULL
       if (Sys.getenv("RUN_MODE") != "SERVER") {
-      showNotification("Test", duration = 0)
-        res <- conditionalPanel(
-          condition = "input.conditionedPanels == 'Data'",
-          fileInput("file", "Choose CSV File",
-            accept = c(
-              "text/csv",
-              "text/comma-separated-values,text/plain",
-              ".csv"
+        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)
+        return(res)
       }
-      str(res)
-      return(res)
     })
 
     download_file <- reactive({