#' modify_code_given_certitude
#' @export
modify_code_given_certitude <- function(concepts, neg) {
require(dplyr, quietly = TRUE)
if (neg) {
concepts %>%
mutate(CODE = ifelse(CONCEPT_CERTITUDE == -1, paste0('no_',CODE), CODE),
CODE_LABEL = ifelse(CONCEPT_CERTITUDE == -1, paste0('no_',CODE_LABEL), CODE_LABEL))
} else {
concepts %>% dplyr::filter(CONCEPT_CERTITUDE == 1)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.