Nothing
#' Returns the position of the first non-NA value
#'
#' @param x An atomic vector.
#' @keywords internal
first_non_na <- function(x) {
if(all(is.na(x))) return(NA_integer_)
else min(which(!is.na(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.