#' @useDynLib jsonlite C_collapse_object C_collapse_object_pretty
collapse_object <- function(x, y, indent = 0L) {
if(is.na(indent)){
.Call(C_collapse_object, x, y)
} else {
.Call(C_collapse_object_pretty, x, y, indent)
}
}
#' @useDynLib jsonlite C_row_collapse_object
row_collapse_object <- function(x, m, indent = NA_integer_){
.Call(C_row_collapse_object, x, m, indent = indent)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.