diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R index 4f2ed85499f4c3022eef185ca40a0f3f812dab37..20a8018698de8516cc0e5357ee22361039066812 100644 --- a/R/shiny-ui-base.R +++ b/R/shiny-ui-base.R @@ -22,7 +22,7 @@ obsrv_e <- shiny::observeEvent vols <- shinyFiles::getVolumes vol_f <- vols() volumes <- function() c(wd=getwd(), shinyFiles::getVolumes()()) -validate1 <- function(expr,msg) shiny::validate(need(expr,msg)) +validate1 <- function(expr,msg) shiny::validate(shiny::need(expr,msg)) path2vol <- function(path) {