Package import fix

dipterix · Dec 17, 2024 · e04a6c0 · e04a6c0
1 parent 51429dd
commit e04a6c0
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -161,7 +161,6 @@ export(updateActionButtonStyled)
 export(updateCompoundInput2)
 export(use_shiny_dipsaus)
 export(write_json)
-import(shiny)
 importFrom(R6,R6Class)
 importFrom(Rcpp,sourceCpp)
 importFrom(cli,ansi_strip)
@@ -183,5 +182,6 @@ importFrom(rlang,cnd_entrace)
 importFrom(rlang,entrace)
 importFrom(rlang,error_cnd)
 importFrom(rlang,trace_back)
+importFrom(shiny,actionButton)
 importFrom(utils,flush.console)
 useDynLib(dipsaus, .registration = TRUE)
diff --git a/R/aaa.R b/R/aaa.R
@@ -1,4 +1,4 @@
-#' @import shiny
+#' @importFrom shiny actionButton
 #' @importFrom Rcpp sourceCpp
 #' @importFrom R6 R6Class
 #' @importFrom fastmap fastmap

diff --git a/R/parallels-apply-script.R b/R/parallels-apply-script.R
@@ -145,7 +145,7 @@ lapply_callr <- function(
 
       h <- rs_exec(bquote({
         if( dir.exists(.(getwd()))){
-          setwd(.(getwd()))
+          do.call("setwd", list(.(getwd())))
         }
 
         .env <- new.env(parent = globalenv())

diff --git a/R/parallels-future.R b/R/parallels-future.R
@@ -288,7 +288,7 @@ lapply_async2 <- function(x, FUN, FUN.args = list(),
         fs <- lapply(x, f)
       }
 
-      p("Results collected\n")
+      ...p("Results collected\n")
 
         # fs <- future.apply::future_lapply(x, function(el) {
         #   p(message = eval(callback_call))

diff --git a/R/shiny-syncInputs.R b/R/shiny-syncInputs.R
@@ -46,7 +46,7 @@ sync_shiny_inputs <- function(input, session, inputIds,
     val = NULL
   )
 
-  local_data <- reactiveValues(
+  local_data <- shiny::reactiveValues(
     last_changed = Sys.time(),
     last_updated = Sys.time()
   )