#' @rdname dc_validation_location_empty
#'
#' @param TARGET a vector of location information. To pass it must be non-empty
#' entry.
#'
dc_validation_location_empty <- function(TARGET = NULL) {
result <- TARGET %>%
gsub(" ", "", .) # Remove possible spaces
result <- !is.na(result) & result != "" # Check if not empty
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.