Nothing
#' @useDynLib partition, .registration = TRUE
#' @importFrom Rcpp sourceCpp
NULL
# variables used in various NSE calls
utils::globalVariables(
c(
":=",
"counts",
"first",
"groups",
"indices",
"information",
"is_reduced",
"mapping",
"n",
"name",
"nclusters",
"nreduced",
"observed_info",
"old_vars",
"permutation",
"position",
"second",
"target_info",
"target_information",
"variable"
)
)
`%nin%` <- function(x, table) {
# is x not in table
match(x, table, nomatch = 0L) == 0L
}
is_not_empty_or_na <- function(x) {
if (length(x) > 1) {
return(!purrr::is_empty(x))
}
!is.na(x)
}
`%||%` <- purrr::`%||%`
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.