testing environment variable LOCAL for js

ComPlat · Dec 18, 2024 · 204bd2b · 204bd2b
1 parent ce6f386
commit 204bd2b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/Direct_Test_App.R b/Direct_Test_App.R
@@ -23,10 +23,9 @@ library(COMELN)
 library(httr)
 library(jose)
 library(openssl)
-Sys.setenv(RUN_MODE = "BROWSER")
+Sys.setenv(RUN_MODE = "LOCAL")
 setwd("bs/R")
 files <- list.files(".")
 lapply(files, source)
 app <- app()
 shiny::shinyApp(app$ui, app$server)
-
diff --git a/app/MainApp.R b/app/MainApp.R
@@ -1,6 +1,6 @@
 
 js_scripts <- function() {
-     if (Sys.getenv("RUN_MODE") != "SERVER") {
+     if (Sys.getenv("RUN_MODE") == "BROWSER") {
       tagList(
         includeScript("www/FileSaver.min.js"),
         includeScript("www/html2canvas.min.js"),
@@ -355,7 +355,9 @@ app <- function() {
 
     output$conditional_data_ui <- renderUI({
       showNotification(Sys.getenv("RUN_MODE"), duration = 0)
+      showNotification(as.character(Sys.getenv("RUN_MODE") != "SERVER"), duration = 0)
       if (Sys.getenv("RUN_MODE") != "SERVER") {
+      showNotification("Test", duration = 0)
         res <- conditionalPanel(
           condition = "input.conditionedPanels == 'Data'",
           fileInput("file", "Choose CSV File",

diff --git a/bs/R/MainApp.R b/bs/R/MainApp.R
@@ -1,6 +1,6 @@
 
 js_scripts <- function() {
-     if (Sys.getenv("RUN_MODE") != "SERVER") {
+     if (Sys.getenv("RUN_MODE") == "BROWSER") {
       tagList(
         includeScript("www/FileSaver.min.js"),
         includeScript("www/html2canvas.min.js"),
@@ -355,6 +355,7 @@ app <- function() {
 
     output$conditional_data_ui <- renderUI({
       showNotification(Sys.getenv("RUN_MODE"), duration = 0)
+      showNotification(as.character(Sys.getenv("RUN_MODE") != "SERVER"), duration = 0)
       if (Sys.getenv("RUN_MODE") != "SERVER") {
       showNotification("Test", duration = 0)
         res <- conditionalPanel(