From eac4c3ce4344ec3a4b515250cb7b3aa18ce9db8e Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Sun, 25 Jun 2023 01:57:27 +0000
Subject: Remove 'shinyjs' dependency

---
 R/server.R | 13 -------------
 1 file changed, 13 deletions(-)

(limited to '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)),
-- 
cgit v1.2.3