0.1.1 with shiny fix

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tidymodules
 Title: A robust framework for developing shiny modules
-Version: 0.1.0.9012
+Version: 0.1.1
 Authors@R: c(
   person('Mustapha', 'Larbaoui', email = '[email protected]', role = c('cre', 'aut')),
   person('Douglas', 'Robinson', email = '[email protected]', role = c('ctb')),
@@ -13,7 +13,7 @@ Description: tidymodules offers a robust framework for developing shiny modules
 License: Apache License (>= 2.0)
 Encoding: UTF-8
 LazyData: true
-Imports: 
+Imports:
     stringi,
     digest,
     R6,

NAMESPACE

@@ -448,6 +448,7 @@ export(session_type)
 export(showExamples)
 import(R6)
 import(dplyr)
+import(shiny)
 import(snippr)
 importFrom(cli,cat_boxx)
 importFrom(cli,cat_bullet)

R/ModStore.R

@@ -6,6 +6,9 @@
 #'
 #' @details
 #' Manage applications, sessions and modules.
+#' 
+#' @import shiny
+#' 
 #' @export
 ModStore <- R6::R6Class(
   "ModStore",

R/TidyModule.R

@@ -6,6 +6,7 @@
 #' It provides methods for defining input and output communication ports, managing module namespace and many other useful features.
 #'
 #' @import R6
+#' @import shiny
 #' 
 #' @export
 TidyModule <- R6::R6Class(
@@ -112,7 +113,7 @@ TidyModule <- R6::R6Class(
         paste0(self$parent_ns,"-",self$id))
 
       ####   Capture ShinySession    #######
-      private$shiny_session <- getDefaultReactiveDomain()
+      private$shiny_session <- shiny::getDefaultReactiveDomain()
 
       self$created <- Sys.time()
 
@@ -443,7 +444,7 @@ TidyModule <- R6::R6Class(
       input <- parent.frame()$output
       session <- parent.frame()$session
       if(is.null(session))
-        session <- getDefaultReactiveDomain()
+        session <- shiny::getDefaultReactiveDomain()
 
       disable_cache <- getCacheOption()
 

R/UtilityModule.R

@@ -24,7 +24,7 @@ UtilityModule <- R6::R6Class(
         private$shared$store <- ModStore$new()
 
       #### Set Shiny Session Here  #######
-      private$shiny_session <- getDefaultReactiveDomain()
+      private$shiny_session <- shiny::getDefaultReactiveDomain()
     }
   )
 )

R/utility.R

@@ -8,6 +8,8 @@
 #' @param id Name or Id of the module
 #' @param group Group name
 #' 
+#' @import shiny
+#' 
 #' @export
 #'
 #' @examples
@@ -57,6 +59,8 @@ getMod <- function(id = 1, group = NULL){
 #' @param id Name or Id of the module
 #' @param group Group name
 #' 
+#' @import shiny
+#' 
 #' @export
 mod <- function(id = 1, group = NULL){
   getMod(id,group)
@@ -72,6 +76,8 @@ mod <- function(id = 1, group = NULL){
 #' @param t Port type, in or out
 #' @param p Port Id or name
 #' 
+#' @import shiny
+#' 
 #' @export
 port <- function(id = 1, p = 1, t = "in", g = NULL){
   m <- getMod(id,g)
@@ -93,6 +99,8 @@ port <- function(id = 1, p = 1, t = "in", g = NULL){
 #' @param g Module group name
 #' @param p Port Id or name
 #' 
+#' @import shiny
+#' 
 #' @export
 iport <- function(id = 1, p = 1, g = NULL){
   port(id,p,"in",g)
@@ -106,6 +114,8 @@ iport <- function(id = 1, p = 1, g = NULL){
 #' @param g Module group name
 #' @param p Port Id or name
 #' 
+#' @import shiny
+#' 
 #' @export
 oport <- function(id = 1, p = 1, g = NULL){
   port(id,p,"out",g)
@@ -119,6 +129,7 @@ oport <- function(id = 1, p = 1, g = NULL){
 #' #' @param verbose Display module description as well
 #' 
 #' @importFrom  cli cat_bullet cat_boxx
+#' @import shiny
 #' 
 #' @export
 listModules <- function(verbose = FALSE, global = FALSE){
@@ -152,6 +163,8 @@ listModules <- function(verbose = FALSE, global = FALSE){
 #' We are working on supporting callModules within module server function for invoking nested modules.
 #' 
 #' 
+#' @import shiny
+#' 
 #' @export
 callModules <- function(){
   currentSession <- UtilityModule$new()$getSession()
@@ -201,6 +214,8 @@ callModules <- function(){
 #' 
 #' @param x expression
 #' 
+#' @import shiny
+#' 
 #' @export
 defineEdges  <- function(x){
   observe({
@@ -286,6 +301,8 @@ NULL
 #' 
 #' @return A session ID
 #' 
+#' @import shiny
+#' 
 #' @export
 getSessionId <- function(session = getDefaultReactiveDomain()){
   if(is.null(session)){

R/verbs.R

@@ -49,6 +49,7 @@ map_ports <- function(leftModule = NULL, leftPort = 1,
 #' })
 #' }
 #' 
+#' @import shiny
 #' 
 #' @export
 combine_ports <- function(...){
@@ -94,6 +95,7 @@ combine_ports <- function(...){
 #' })
 #' }
 #' 
+#' @import shiny
 #' 
 #' @export
 race_ports <- function(...){