ropensci / aRxiv
1
# check if query is NULL or white space
2
is_blank <-
3
    function(query)
4
{
5 1
    if(is.null(query) || grepl("^\\s*$", query)) # white space
6 1
        return(TRUE)
7

8 1
    FALSE
9
}

Read our documentation on viewing source code .

Loading