Nothing
#' @title Clean NULL values
#' @description Pass an object and convert all
#' \code{NULL} elements to \code{NA}.
#' @param x An element that may or may not have NULL values.
#' @returns parsed `list` where NULL values are changed to NA
#' @keywords internal
#' @noRd
cleanNULL <- function(x) { # nolint
out <- rapply(x,
function(y) {
#print(y)
ifelse(is.null(y), NA, y)
},
how = "replace")
return(out)
}
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.