From 204bd2b847595e30bf6c94bef4f9f390a0e36112 Mon Sep 17 00:00:00 2001
From: Konrad1991 <konrad_kraemer@yahoo.de>
Date: Wed, 18 Dec 2024 13:54:50 +0100
Subject: [PATCH] testing environment variable LOCAL for js

---
 Direct_Test_App.R | 3 +--
 app/MainApp.R     | 4 +++-
 bs/R/MainApp.R    | 3 ++-
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/Direct_Test_App.R b/Direct_Test_App.R
index 6abc64e..4c20528 100644
--- 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
index fcaf541..bafac9f 100644
--- 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
index 5974821..bafac9f 100644
--- 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(