diff --git a/app/MainApp.R b/app/MainApp.R index 825536d..45988a3 100644 --- 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 index 825536d..45988a3 100644 --- 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({