#' Filter empty documents.
#'
#' Filter empty documents.
#'
#' @param text vector or list of text.
#'
#' @examples
#' text <- c("Some text", "", "", "More text")
#'
#' spot_filter(text)
#'
#' @export
spot_filter <- function(text) UseMethod("spot_filter")
#' @method spot_filter list
#' @export
spot_filter.list <- function(text){
lapply(text, function(x) x[nchar(x) > 0L])
}
#' @export
spot_filter.default <- function(text){
text[nchar(text) > 0L]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.