无法为签名'“XMLDocument”找到函数'saveXML'的继承方法'

Question

可以告诉我为什么这段代码：

filename3 = "restaurants.xml"
if (!file.exists(filename3)) csv <- download.file("https://d396qusza40orc.cloudfront.net/getdata%2Fdata%2Frestaurants.xml", filename3, "curl")
if (!exists("data3")) data3 <- xmlRoot(xmlTreeParse(filename3, useInternalNodes = TRUE))
zips <- xpathSApply(data3, "//zipcode", xmlValue)

给我错误：

Error in (function (classes, fdef, mtable)  : 
  unable to find an inherited method for function 'saveXML' for signature '"XMLDocument"'

谢谢。