Nothing
#' @rdname as_xml_list
#' @export
#'
as_xml_list.dmdSchemeSet <- function(
x,
output = "metadata",
...
) {
xml <- as_xml(x, output = output, ...)
# Return xml --------------------------------------------------------------
return(list(xml))
}
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.