correction of some checks error remain one

edges to agjacency and unipartite are visibly going wrong

DESCRIPTION

@@ -26,7 +26,6 @@ Imports:
     patchwork,
     purrr,
     rmarkdown,
-    sbm,
     shiny (>= 1.7.2),
     shinyalert,
     shinydashboard,

NAMESPACE

@@ -17,6 +17,7 @@ export(get_flextable)
 export(plotSbm)
 export(shinySbmApp)
 export(visSbm)
+import(sbm)
 import(shiny)
 importFrom(golem,activate_js)
 importFrom(golem,add_resource_path)

R/app_server.R

@@ -12,7 +12,7 @@
 #' @importFrom grDevices png
 #' @importFrom grDevices svg
 #' @noRd
-app_server <- function(input, output, session, console_verbosity) {
+app_server <- function(input, output, session, console_verbosity = T) {
   options(shiny.maxRequestSize = 50*1024^2) # can upload 50MB files
   session$userData$console_verbosity <- console_verbosity
   session$userData$vars <- reactiveValues(

R/fct_get_Blocks.R

@@ -4,7 +4,7 @@
 #'
 #' @param x Sbm model of class `BipartiteSBM_fit`, `SimpleSBM_fit`.
 #' @param labels labels for nodes. If it's simple sbm it should be a single character ("default" -> c("nodes")). If sbm is bipartite a named character (names are row and col) ("default" -> c(row = 'row', col = 'col')).
-#' @param node_names:
+#' @param node_names
 #' \itemize{
 #'  \item{"bipartite case": }{named list ("row","col"), row is a character vector containing names of nodes in rows, and respectively for columns}
 #'  \item{"unipartite case": }{character: node names}

R/fct_sbmMatrixClass.R

@@ -9,6 +9,8 @@
 #'
 #' @return `name` or if it's already in `list` the first of `nameX` (`name1`, `name2`, etc...) that is not already in the list
 #'
+#' @import sbm
+#'
 #' @noRd
 addindice <- function(list, name, n = 1) {
   if (name %in% list) {

man/get_block.Rd

@@ -17,14 +17,14 @@ get_block(
 
 \item{labels}{labels for nodes. If it's simple sbm it should be a single character ("default" -> c("nodes")). If sbm is bipartite a named character (names are row and col) ("default" -> c(row = 'row', col = 'col')).}
 
-\item{attribution}{Boolean indicating whether or not the produced tables should contain a block attribution column. This column shows the block in which each nodes is the most likely to be.}
-
-\item{proportion}{Boolean indicating whether or not the produced tables should contain the probabilities to belong in each blocks. These columns shows for every nodes and evey blocks the probabilities that the node belong to the block.}
-
-\item{node_names:}{\itemize{
+\item{node_names}{\itemize{
 \item{"bipartite case": }{named list ("row","col"), row is a character vector containing names of nodes in rows, and respectively for columns}
 \item{"unipartite case": }{character: node names}
 }}
+
+\item{attribution}{Boolean indicating whether or not the produced tables should contain a block attribution column. This column shows the block in which each nodes is the most likely to be.}
+
+\item{proportion}{Boolean indicating whether or not the produced tables should contain the probabilities to belong in each blocks. These columns shows for every nodes and evey blocks the probabilities that the node belong to the block.}
 }
 \value{
 \itemize{