diff --git a/NAMESPACE b/NAMESPACE
index 8a2d2ac..87da8fe 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -87,6 +87,7 @@ importFrom(bs4Dash,controlbarItem)
 importFrom(bs4Dash,controlbarMenu)
 importFrom(bs4Dash,menuItem)
 importFrom(bs4Dash,sidebarMenu)
+importFrom(cachem,cache_disk)
 importFrom(cachem,cache_mem)
 importFrom(cli,cli_abort)
 importFrom(cli,cli_alert_info)
@@ -176,6 +177,7 @@ importFrom(shiny,renderText)
 importFrom(shiny,req)
 importFrom(shiny,runApp)
 importFrom(shiny,shinyApp)
+importFrom(shiny,shinyOptions)
 importFrom(shiny,showModal)
 importFrom(shiny,sliderInput)
 importFrom(shiny,tagList)
diff --git a/R/app_inputs.R b/R/app_inputs.R
index 92a8bdf..36da784 100644
--- a/R/app_inputs.R
+++ b/R/app_inputs.R
@@ -44,7 +44,7 @@ picker <- function(
     choice_options = NULL,
     ...) {
   shinyWidgets::pickerInput(
-    id = id,
+    inputId = id,
     label = label,
     choices = choices,
     selected = selected,
diff --git a/R/app_run.R b/R/app_run.R
index 1c27a68..171305c 100644
--- a/R/app_run.R
+++ b/R/app_run.R
@@ -18,16 +18,17 @@
 #'
 #' @export
 #'
-#' @importFrom shiny runApp
+#' @importFrom cachem cache_disk cache_mem
+#' @importFrom shiny runApp shinyOptions
 run_app <- function(
     onStart = NULL,
     options = list(),
     enableBookmarking = NULL,
     uiPattern = "/",
     ...) {
-  shinyOptions(cache = cachem::cache_mem(max_size = 500e6))
-  # shinyOptions(cache = cachem::cache_disk(file.path(dirname(tempdir()), "gmhleasr"))
-  shinyOptions(cache = cachem::cache_disk("./app_cache"))
+  shiny::shinyOptions(cache = cachem::cache_mem(max_size = 500e6))
+  # shiny::shinyOptions(cache = cachem::cache_disk(file.path(dirname(tempdir()), "gmhleasr"))
+  shiny::shinyOptions(cache = cachem::cache_disk("./app_cache"))
 
   run_with_opts(
     app = shiny::shinyApp(