X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/336017bd64d44f851b8c12d9f45359b5c2a6e2c3..b87620843bcae4fc1cb6a9e9caaf52944e93b7b7:/R/server.R

diff --git a/R/server.R b/R/server.R
index 9929010..e8d2970 100644
--- a/R/server.R
+++ b/R/server.R
@@ -1,19 +1,6 @@
 #' @importFrom methods is
 #' @importFrom utils read.csv write.csv
 server <- function(input, output) {
-    # Hide the sidebar if the 'About' tab is active.
-    shiny::observeEvent(input$tabset, {
-        if (input$tabset == "About") {
-            shinyjs::hideElement(selector="#sidebar")
-            shinyjs::removeCssClass("main", "col-sm-8")
-            shinyjs::addCssClass("main", "col-sm-12")
-        } else {
-            shinyjs::showElement(selector="#sidebar")
-            shinyjs::removeCssClass("main", "col-sm-12")
-            shinyjs::addCssClass("main", "col-sm-8")
-        }
-    })
-
     reactive <- shiny::reactiveValues(
         data_table=data.frame(Name=character(0), `Reporting Frequency`=character(0), `Case Counts`=numeric(0), check.names=FALSE),
         est_table=data.frame(Dataset=character(0)),