xml_name <- "a"
# ""
xml_node_create(xml_name)
xml_child <- "openxlsx"
# "openxlsx"
xml_node_create(xml_name, xml_children = xml_child)
xml_attr <- c(foo = "baz", qux = "quux")
# ""
xml_node_create(xml_name, xml_attributes = xml_attr)
# "openxlsx"
xml_node_create(xml_name, xml_children = xml_child, xml_attributes = xml_attr)
Run the code above in your browser using DataLab