indices_empty_cases <- function(listings) {
ind_empty_cases <- which(rowSums(!is.na(listings)) == 0)
}
#' @import dplyr
remove_empty_cases <- function(listings) {
listings <- listings %>%
slice(-indices_empty_cases(listings))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.