From 34e52a1928d92c739885932e51555d02a3f73900 Mon Sep 17 00:00:00 2001 From: bzkrouse Date: Tue, 23 Apr 2019 16:24:38 -0400 Subject: [PATCH] remove export button if no edish selected --- .../modules/renderChart/render_edish_chart.R | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/inst/eDISH_app/modules/renderChart/render_edish_chart.R b/inst/eDISH_app/modules/renderChart/render_edish_chart.R index 8c5aa75c..4e9a1ff4 100644 --- a/inst/eDISH_app/modules/renderChart/render_edish_chart.R +++ b/inst/eDISH_app/modules/renderChart/render_edish_chart.R @@ -32,8 +32,15 @@ render_edish_chart <- function(input, output, session, data, settings, valid){ # insert export chart button if settings pass validation # remove button if validation fails observeEvent(valid(), { + if (is.null(valid())){ + valid <- FALSE + } else { + valid <- valid() + } + removeUI(selector = paste0("#", ns("download"))) - if (valid()==TRUE){ + + if (valid==TRUE){ insertUI ( selector = "div.container-fluid", where = "beforeEnd", @@ -47,7 +54,7 @@ render_edish_chart <- function(input, output, session, data, settings, valid){ else { removeUI(selector = paste0("#", ns("download"))) } - }) + }, ignoreNULL = FALSE) # Set up report generation on download button click