diff --git a/R/utils.R b/R/utils.R index f108c66..8594129 100644 --- a/R/utils.R +++ b/R/utils.R @@ -270,6 +270,7 @@ dom_network_items <- function(dom, clusters = NULL, return = NULL) { #' @param need_colnames Logical for whether colnames are required #' @param need_rownames Logical for whether rownames are required #' @param need_names Logical for whether names are required +#' @keywords internal check_arg <- function(arg, allow_class = NULL, allow_len = NULL, allow_range = NULL, allow_values = NULL, need_vars = c(NULL), need_colnames = FALSE, @@ -335,6 +336,7 @@ check_arg <- function(arg, allow_class = NULL, allow_len = NULL, #' #' @param obj Object to read if not already object #' @return obj Object itself in case its not a character +#' @keywords internal read_if_char <- function(obj) { if (is(obj, "character")) { check_arg(obj, allow_class = "character", allow_len = 1) @@ -347,6 +349,7 @@ read_if_char <- function(obj) { #' #' @param obj Object that will be converted #' @return obj The converted object +#' @keywords internal conv_py_bools <- function(obj) { for (x in colnames(obj)) { bools <- sort(unique(obj[[x]])) diff --git a/docs/404.html b/docs/404.html index d7be2e8..18c6168 100644 --- a/docs/404.html +++ b/docs/404.html @@ -29,7 +29,7 @@ Skip to contents -