Nothing
#' utility function for the applicability of categorical admissibility
#'
#' Test for applicability of categorical admissibility
#'
#' @param x [data.frame] metadata
#' @param dta [logical] vector, 1=matching data type,
#' 0 = non-matching data type
#'
#' @return [factor] 0-3 for each variable in metadata
#' - 0 data type mismatch and not applicable
#' - 1 data type mismatches but applicable
#' - 2 data type matches but not applicable
#' - 3 data type matches and applicable
#' - 4 not applicable because of not suitable data type
util_app_iac <- function(x, dta) {
if (VALUE_LABELS %in% names(x)) {
c1 <- ifelse(!is.na(x[[VALUE_LABELS]]), 1, 0)
} else {
c1 <- rep(0, times = dim(x)[1])
}
if (DATA_TYPE %in% names(x)) {
c2 <- ifelse(!is.na(x[[DATA_TYPE]]) &
(x[[DATA_TYPE]] %in% c(DATA_TYPES$INTEGER,
DATA_TYPES$STRING))
, 1, 0)
} else {
c2 <- rep(0, times = dim(x)[1])
}
aa <- paste0(dta, c1)
score <- as.numeric(recode(as.factor(aa), "00" = 0, "01" = 1,
"10" = 2, "11" = 3))
score[c2 == 0] <- 4
score <- as.factor(score)
return(score)
}
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.