正在尝试将数据保存到CSV。无错误，但未保存任何内容

Question

这样可以很好地抓取数据。

library(XML)
require(reshape2)

# URL of interest:
mps <- "http://stockreports.nasdaq.edgar-online.com/aapl.html"
# parse the document for R representation:
mps.doc <- htmlParse(mps)
# get all the tables in mps.doc as data frames
mps.tabs <- readHTMLTable(mps.doc)

mat <- melt(mps.tabs)

mps.tabs看起来很好。但我不能将其保存为CSV文件。我不断得到和错误。

mat <- melt(mps.tabs)
write.csv(mat, file = "C:/Users/rshuell001/Desktop/MyData.csv")

不会将任何内容保存到我的CSV。没有错误消息；什么都没有。有人能告诉我这里出了什么问题吗？

Answer 1

我想出了一个办法！

library(XML)
stocks = "http://stockreports.nasdaq.edgar-online.com/aapl.html"
stocks.table = readHTMLTable(airline, header=T, which=1,stringsAsFactors=F)
write.csv(stocks.table, file = "C:/Users/rshuell001/Desktop/MyData.csv")