Merge pull request #202 from CRSU-Apps/dev

V6.1.1 Release

CITATION.cff

@@ -52,5 +52,5 @@ keywords:
   - MetaInsight
   - RShiny
 license: GPL-3.0-or-later
-version: 6.1.0
-date-released: '2024-08-30'
+version: 6.1.1
+date-released: '2024-09-10'

R/home_page.R

@@ -21,7 +21,7 @@ home_page_ui <- function(id) {
         });'
       )
     ),
-    h2("MetaInsight v6.1.0", align = "left"),
+    h2("MetaInsight v6.1.1", align = "left"),
     fluidRow(
       column(
         width = 3,
@@ -35,10 +35,9 @@ home_page_ui <- function(id) {
       column(
         width = 5,
         p(tags$strong("Latest Updates:")),
-        p(tags$strong("Minor update (30th August 2024 v6.1.0):")),
+        p(tags$strong("Patch update (10th September 2024 v6.1.1):")),
         tags$ul(
-          tags$li("Fixed nodesplit model run buttons."),
-          tags$li("Added disconnected network detection for uploaded data.")
+          tags$li("Fixed issue with sensitivity analysis failing on data upload.")
         ),
         p(tags$strong("Major update (10 July 2024 v6.0.0):")),
         p(

R/meta_regression/bugsnet_sumtb.R

@@ -14,7 +14,7 @@ bugsnet_sumtb <- function(data, metaoutcome){
   } else {
     stop("metaoutcome must be 'Binary' or 'Continuous'")
   }
-  network.char <- BUGSnet::net.tab(data = data.rh,                          
+  network.char <- BUGSnet::net.tab(data = data.rh,
                                    outcome = outcome,
                                    N = "N",
                                    type.outcome = typeO,

R/study_exclusions_panel.R

@@ -34,12 +34,18 @@ study_exclusions_panel_server <- function(id, data, treatment_df, reference_trea
       unique(data()$Study)
     })
 
+    data_reset <- reactiveVal(FALSE)
+
     # Create check boxes for studies in data
     observe({
       shiny::updateCheckboxGroupInput(
         inputId = "exclusionbox",
         choices = all_studies()
       )
+
+      # Mark data as reset
+      data_reset(TRUE)
+      data_reset(FALSE)
     })
 
     reference_treatment <- reactive({
@@ -146,7 +152,10 @@ study_exclusions_panel_server <- function(id, data, treatment_df, reference_trea
     ui_exclusions <- debounce(
       millis = 100,
       r = reactive({
-        input$exclusionbox
+        # Reactive dependency on data being reset
+        data_reset()
+
+        return(input$exclusionbox)
       })
     )
 

README.md

@@ -1,6 +1,6 @@
 [![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.7852691.svg)](https://doi.org/10.5281/zenodo.7852691)
 
-# MetaInsight v6.1.0
+# MetaInsight v6.1.1
 Network meta-analysis (NMA) has been increasingly adopted in evidence-based medicine to compare multiple interventions and address the questions such as ‘which intervention is the ‘best’ overall?’. Currently, NMA is primarily conducted in statistical packages such as WinBUGs, R and STATA, and the software coding can be difficult for non- statisticians and hinders the progress of carrying out systematic reviews containing NMA.
 
 MetaInsight is a tool that conducts NMA via the web requiring no specialist software for the user to install but leveraging established analysis routines (specifically the netmeta and gemtc package in R). The tool is interactive and uses an intuitive ‘point and click’ interface and presents results in visually intuitive and appealing ways. It is hoped that this tool will assist those in conducting NMA who do not have expert statistical programming skills, and, in turn, increase the relevance of published meta-analyses, and in the long term contribute to improved healthcare decision making as a result.

ui.R

@@ -12,7 +12,7 @@ dashboardPage(
       includeHTML("www/favicon/favicon.html"),
       tags$meta(name="description", content="A interactive web tool for network meta-analysis (NMA) that leverages established analysis routines"),
       tags$meta(name="keywords", content="MetaInsight, NMA, Network, Meta, Analysis, App"),
-      tags$meta(property="og:title", content="Meta Insight: v6.1.0"),
+      tags$meta(property="og:title", content="Meta Insight: v6.1.1"),
       tags$meta(property="og:description", content="An interactive web tool for network meta-analysis (NMA) that leverages established analysis routines"),
       tags$meta(property="og:image", content="https://raw.githubusercontent.com/CRSU-Apps/MetaInsight/main/www/images/MetaInsightLogo.png"),
       tags$script(src = "https://kit.fontawesome.com/23f0e167ac.js", crossorigin = "anonymous"),