#' dcwToXML - Convert Darwin Core format data frame to XML
#' @import XML
#' @param dat - Darwin Core Data frame to convert to XML
#' @return Simple Darwin Core format XML
#' @examples \dontrun{
#' dcwToXML(dat)
#' }
#' @export
dcwToXML <- function(dat=NA){
root <- newXMLNode("SimpleDarwinRecordSet")
for(i in 1:dim(dat[1])){
rec <- newXMLNode("SimpleDarwinRecord", parent=root);
for(j in 1:dim(dat)[2]){
child <- newXMLNode(names(dat)[j], parent=rec)
xmlValue(child) <- dat[i,j]
}
}
return(root)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.