Nothing
#' Check for one value only
#'
#' utility function to identify variables with one value only.
#'
#' @param x vector with values
#'
#' @return logical(1): TRUE, if -- except NA -- exactly only one value
#' is observed in `x`,
#' FALSE otherwise
#'
#' @family robustness_functions
#' @concept data_management
#' @keywords internal
util_check_one_unique_value <- function(x) {
howmany <- length(unique(x[!is.na(x)]))
return(as.logical(ifelse(howmany == 1, 1, 0)))
}
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.