Add Reset Button

README.md

@@ -3,7 +3,7 @@
 <img src="www/Logo.svg" width="225px" height="150px" align="right"/>
 
 ![](https://img.shields.io/github/license/SandraKla/Zlog_AdRI.svg)
-![](https://img.shields.io/github/last-commit/SandraKla/Zlog_AdRI/master.svg)
+![](https://img.shields.io/github/last-commit/SandraKla/Zlog_AdRI/main.svg)
 
 This Shiny App computes the zlog values of the preceding and the subsequent reference interval for different analytes for each age group. Many medical reference intervals are not age-dependent and have large jumps between the individual age groups. This should be prevented by considering the zlog value. The lower reference limits (LL) and upper reference limits (UL) can transform any result x into a zlog value using the following equation: 
 
@@ -49,7 +49,7 @@ The package [DT](https://cran.r-project.org/web/packages/DT/index.html) (≥ 0.2
 Data from the [CALIPER-Database](https://caliper.research.sickkids.ca/#/) with age-dependent reference intervals has been preloaded into this Shiny App. For this purpose, the data were brought into the appropriate shape for the analysis from the [Supplemental Table 2](https://academic.oup.com/clinchem/article/58/5/854/5620695#supplementary-data) from the publication: *Closing the Gaps in Pediatric Laboratory Reference Intervals: A CALIPER Database of 40 Biochemical Markers in a Healthy and Multiethnic Population of Children*. 
 
 ### New data
-For new data use the [CALIPER-Dataset](https://github.com/SandraKla/Zlog_AdRI/blob/master/data/CALIPER.csv) as template with the columns: 
+For new data use the [CALIPER-Dataset](https://github.com/SandraKla/Zlog_AdRI/blob/main/data/CALIPER.csv) as template with the columns: 
 
 * **CODE**: Name of the analyte ("Calcium") 
 * **LABUNIT**: Unit of the analyte ("mmol/L")

app.R

@@ -34,13 +34,9 @@ ui <- dashboardPage(
         "Tool for Plausibility Checks of Reference Interval Limits"
       ),
 
-      fileInput(
-        "data_table",
-        "Upload CSV File:",
-        accept = c("text/csv",
-                   "text/comma-separated-values,text/plain",
-                   ".csv")
-      ),
+      uiOutput("dataset_file"),
+      actionButton('reset', 'Reset Input', icon = icon("trash")),
+
       conditionalPanel(condition = "input.tabselected == 'Table'",
                        selectInput(
                          "sex",
@@ -187,11 +183,38 @@ server <- function(input, output, session) {
 
   ##################################### Reactive Expressions ######################################
 
+  values <- reactiveValues(upload_state = NULL)
+
+  observeEvent(input$dataset_file, {
+    values$upload_state <- 'uploaded'
+  })
+
+  observeEvent(input$reset, {
+    values$upload_state <- 'reset'
+  })
+
+  dataset_input <- reactive({
+    if (is.null(values$upload_state)) {
+      return(NULL)
+    } else if (values$upload_state == 'uploaded') {
+      return(input$dataset_file)
+    } else if (values$upload_state == 'reset') {
+      return(NULL)
+    }
+  })
+
+  output$dataset_file <- renderUI({
+    input$reset ## Create a dependency with the reset button
+    fileInput("dataset_file","Upload CSV File:", accept = c("text/csv", "text/comma-separated-values,text/plain", ".csv"), multiple = FALSE)
+  })
+
   get_data_file <- reactive({
 
+    input$dataset_file
+
     saving <- 
-      if(!is.null(input$data_table)){
-        dataset_original <- read.csv(input$data_table[["datapath"]],na.strings="", fileEncoding="latin1")
+      if(!is.null(dataset_input())){ 
+        dataset_original <- read.csv(dataset_input()[["datapath"]], na.strings="", fileEncoding="latin1")
       }else{
         dataset_original <- read.csv("data/CALIPER.csv",na.strings="", fileEncoding="latin1")
       }
@@ -309,7 +332,7 @@ server <- function(input, output, session) {
 
   ##################################### Observe Events ############################################
 
-  observeEvent(input$data_table, {
+  observeEvent(input$dataset_file, {
     updateSelectInput(session, "parameter", choices = zlog_data()[,1])
   })
 

docs/guide.md

@@ -4,7 +4,7 @@
 
 ### Load new data 
 
-For new data use the [CALIPER-Dataset](https://github.com/SandraKla/Zlog_AdRI/blob/master/data/CALIPER.csv) as template with the columns:
+For new data use the [CALIPER-Dataset](https://github.com/SandraKla/Zlog_AdRI/blob/main/data/CALIPER.csv) as template with the columns:
 
 * **CODE**: Name of the analyte ("Calcium") 
 * **LABUNIT**: Unit of the analyte ("mmol/L")