Nothing
sheetExists <- function(wb, ws_name) {
sheets <- names(wb)
return(ws_name %in% sheets)
}
not_null <- function(x) {
!(is.null(x))
}
not_na <- function(x) {
!(is.na(x))
}
remove_leading_trailing_pipe <- function(x) {
x <- gsub("\\|+$", "", x, perl=TRUE)
x <- gsub("^\\|+", "", x, perl=TRUE)
x
}
is_null_or_blank <- function(x) {
if (length(x) > 1) {
stop("You passed something of length > 1 to is_null_or_blank")
}
if (is.null(x)) {
return(TRUE)
}
if (x == "") {
return(TRUE)
}
return(FALSE)
}
get_prop_or_return_null <- function(mylist, key) {
if (key %in% names(mylist) ) {
return(mylist[[key]])
} else {
return(NULL)
}
}
is_truely_na <- function(x){
return(is.na(x) & !is.nan(x))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.