https://github.com/cran/XML
Tip revision: dcf8ba16b3b0cb0e5edcdc3eb143a42a6b6c2b32 authored by Duncan Temple Lang on 11 September 2006, 00:00:00 UTC
version 0.99-92
version 0.99-92
Tip revision: dcf8ba1
DTDRef.R
# These are classes and facilities for referring to a DTD for the
# DOCTYPE field of an XML document
setClass("Doctype", representation(name = "character",
system = "character",
public = "character"))
Doctype =
function(system = "", public = "", name = "")
{
new("Doctype", name = name, system = system, public = public)
}
setAs("Doctype", "character",
function(from) {
if(sum(nchar(from@public), nchar(from@system)))
extra = c("SYSTEM", ifelse(from@public != "", dQuote(from@public), ""),
ifelse(from@system != "", dQuote(from@system), ""))
paste("<!DOCTYPE", from@name, paste(extra, collapse = " "), ">")
})