testing environment variable LOCAL for js

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

Hide file tree

Showing 2 changed files with 60 additions and 60 deletions.
diff --git a/app/MainApp.R b/app/MainApp.R
@@ -18,22 +18,22 @@ 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"
+  output$conditional_data_ui <- renderUI({
+    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)
+      return(res)
+    }
+  })
 }
-uf <- upload_fct()
 
 app <- function() {
   js <- js_scripts()
@@ -372,23 +372,23 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      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)
-      # }
+      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"
+              )
+            )
+          )
+        )
+        showNotification(as.character(res))
+        return(res)
+      }
     })
 
     download_file <- reactive({

diff --git a/bs/R/MainApp.R b/bs/R/MainApp.R
@@ -18,22 +18,22 @@ 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"
+  output$conditional_data_ui <- renderUI({
+    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)
+      return(res)
+    }
+  })
 }
-uf <- upload_fct()
 
 app <- function() {
   js <- js_scripts()
@@ -372,23 +372,23 @@ app <- function() {
     })
 
     output$conditional_data_ui <- renderUI({
-      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)
-      # }
+      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"
+              )
+            )
+          )
+        )
+        showNotification(as.character(res))
+        return(res)
+      }
     })
 
     download_file <- reactive({