Merge pull request #283 from OHDSI/removing-help-sections

remove help & information sections in most modules due to About modul...
OHDSI · May 20, 2024 · 910b09c · 910b09c
2 parents 8f16b69 + 7ab491b
commit 910b09c
Show file tree

Hide file tree

Showing 12 changed files with 13 additions and 70 deletions.
diff --git a/R/characterization-aggregateFeatures.R b/R/characterization-aggregateFeatures.R
@@ -33,10 +33,7 @@ characterizationAggregateFeaturesViewer <- function(id) {
 
   shiny::div(
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("characterization-www", "help-OutcomeStratified.html", package = utils::packageName())
-    ),
+
 
 
     # module that does input selection for a single row DF

diff --git a/R/characterization-cohorts.R b/R/characterization-cohorts.R
@@ -32,10 +32,10 @@ characterizationTableViewer <- function(id) {
   ns <- shiny::NS(id)
   shiny::div(
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("characterization-www", "help-targetViewer.html", package = utils::packageName())
-    ),
+    # infoHelperViewer(
+    #   id = "helper",
+    #   helpLocation= system.file("characterization-www", "help-targetViewer.html", package = utils::packageName())
+    # ),
 
 
     # module that does input selection for a single row DF

diff --git a/R/characterization-dechallengeRechallenge.R b/R/characterization-dechallengeRechallenge.R
@@ -32,11 +32,7 @@ characterizationDechallengeRechallengeViewer <- function(id) {
   ns <- shiny::NS(id)
   shiny::div(
 
-    # helper component module
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("characterization-www", "help-dechallengeRechallenge.html", package = utils::packageName())
-    ),
+
 
     # input component module
     inputSelectionViewer(id = ns('input-selection')),

diff --git a/R/characterization-incidence.R b/R/characterization-incidence.R
@@ -118,10 +118,7 @@ characterizationIncidenceViewer <- function(id) {
   ns <- shiny::NS(id)
   shiny::div(
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("characterization-www", "help-incidenceRate.html", package = utils::packageName())
-    ),
+
 
     inputSelectionViewer(
       id = ns("input-selection-results")

diff --git a/R/characterization-timeToEvent.R b/R/characterization-timeToEvent.R
@@ -32,11 +32,7 @@ characterizationTimeToEventViewer <- function(id) {
   ns <- shiny::NS(id)
   shiny::div(
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("characterization-www", "help-timeToEvent.html", package = utils::packageName())
-    ),
-
+
     # input component module
     inputSelectionViewer(id = ns('input-selection')),
 

diff --git a/R/cohort-generator-main.R b/R/cohort-generator-main.R
@@ -50,14 +50,7 @@ cohortGeneratorViewer <- function(id) {
       width = '100%',
       title = shiny::span( shiny::icon("user-gear"),'Cohorts'),
       solidHeader = TRUE,
-
-      shinydashboard::box(
-        collapsible = TRUE,
-        collapsed = TRUE,
-        title = shiny::span( shiny::icon("circle-question"), "Help & Information"),
-        width = "100%",
-        shiny::htmlTemplate(system.file("cohort-generator-www", "cohort-generator.html", package = utils::packageName()))
-      ),
+
 
       shiny::tabsetPanel(
         id = ns("cohortGeneratorTabs"),

diff --git a/R/cohort-method-main.R b/R/cohort-method-main.R
@@ -48,10 +48,7 @@ cohortMethodViewer <- function(id) {
     title = shiny::span( shiny::icon("chart-column"), 'Cohort Method'),
     solidHeader = TRUE,
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("cohort-method-www", "cohort-method.html", package = utils::packageName())
-    ),
+
 
     # Input selection of T, C and Os
     inputSelectionViewer(ns("input-selection")),

diff --git a/R/datasources-main.R b/R/datasources-main.R
@@ -47,15 +47,7 @@ datasourcesViewer <- function(id) {
     width = "100%",
     title =  shiny::span(shiny::icon("database"), "Data Sources"),
     solidHeader = TRUE,
-
-    shinydashboard::box(
-      collapsible = TRUE,
-      collapsed = FALSE,
-      title = shiny::span( shiny::icon("circle-question"), "Help & Information"),
-      width = "100%",
-      shiny::htmlTemplate(system.file("datasources-www", "datasources.html", package = utils::packageName()))
-    ),
-
+
       shiny::tabsetPanel(
         type = 'pills',
         id = ns('mainPanel'),

diff --git a/R/evidence-synth-main.R b/R/evidence-synth-main.R
@@ -31,11 +31,7 @@ evidenceSynthesisViewer <- function(id=1) {
     width = 12,
     title = shiny::span( shiny::icon("sliders"), 'Evidence Synthesis'),
     solidHeader = TRUE,
-
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("evidence-synthesis-www", "evidence-synthesis.html", package = utils::packageName())
-    ),
+
 
     # add two buttons - CM or SCCs
     shiny::tabsetPanel(

diff --git a/R/phevaluator-main.R b/R/phevaluator-main.R
@@ -49,14 +49,7 @@ phevaluatorViewer <- function(id) {
     width = "100%",
     title =  shiny::span(shiny::icon("gauge"), "PheValuator"),
     solidHeader = TRUE,
-
-    shinydashboard::box(
-      collapsible = TRUE,
-      collapsed = FALSE,
-      title = shiny::span( shiny::icon("circle-question"), "Help & Information"),
-      width = "100%",
-      shiny::htmlTemplate(system.file("phevaluator-www", "phevaluator.html", package = utils::packageName()))
-    ),
+
 
     shinydashboard::box(
       collapsible = TRUE,

diff --git a/R/sccs-main.R b/R/sccs-main.R
@@ -13,10 +13,6 @@ sccsView <- function(id = "sccs-module") {
     title = shiny::span( shiny::icon("people-arrows"), 'Self Controlled Case Series'),
     solidHeader = TRUE,
 
-    infoHelperViewer(
-      id = "helper",
-      helpLocation= system.file("sccs-www", "sccs.html", package = utils::packageName())
-    ),
 
     inputSelectionViewer(ns("input-selection-sccs")),
 

diff --git a/man/OhdsiShinyModules.Rd b/man/OhdsiShinyModules.Rd