#' Complete Fun
#'
#' This function remove NA rows
#' @param Remove NA rows
#' @keywords Remove NAs
#' @export
#' @examples
#' completeFun()
completeFun <- function(data, desiredCols) {
completeVec <- complete.cases(data[, desiredCols])
return(data[completeVec, ])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.