Hi R-Help,
So, I will try to provide a reproducible example...I basically made a dummy
spreadsheet that contains the same number of tabs as the spreadsheet I am
really interested in. The data on that spreadsheet is really sensitive so
I couldn't use it.
Anyway, here are the various sheets in the spreadsheet:
> names(ts)
[1] "Operations" "Financing" "Income" "Balance sheet" "Cash
Flows211"
[6] "Cash Flows210" "Cash Flows29" "Cash Flows28" "Cash Flows27"
I am only interested in these sheets:
> names(ts2)
[1] "Cash Flows211" "Cash Flows210" "Cash Flows29" "Cash Flows28" "Cash
Flows27"
I want to save them to csv files that contain the same name or similar as
the sheet name.
Here's the error I'm getting (using traceback i ran it twice to get the
trace):
[1] "Cash Flows211"
[1] "Cash Flows211 - 2014-11-20.csv"
6: stop(err)
5: stop.if.HTTP.error(http.header)
4: getURLContent(uri, .opts = .opts, .encoding = .encoding, binary =
binary,
curl = curl)
3: getForm("https://www.google.com/accounts/ClientLogin";, accountType =
"HOSTED_OR_GOOGLE",
Email = login, Passwd = password, service = service, source = appID,
.opts = list(ssl.verifypeer = FALSE))
2: getGoogleAuth(usrname, pword, "...", service = "wise")
1: getGoogleDocsConnection(getGoogleAuth(usrname, pword, "...",
service = "wise"))
Error in getURL(sheet@cellsfeed, curl = getCurlCon(con), followlocation =
TRUE) :
trying to get slot "cellsfeed" from an object of a basic class ("NULL")
with no slots
Here's the code:
# install the RGoogleDocs package
install.packages("RGoogleDocs", repos = "http://www.omegahat.org/R";,
type="source", dep=F)
library(RGoogleDocs)
usrname <- "r.project.u...@gmail.com"
pword <- "fakepword"
sheets.con <- getGoogleDocsConnection(getGoogleAuth(usrname, pword, "...",
service = "wise"))
a <- getDocs(sheets.con)
ts <- getWorksheets('Google spreadsheet example', sheets.con)
ts2 <- ts[grep("^Cash Flow", names(ts))]
nms <- names(ts2)
lnth <- length(ts2)
sheetz <- list("integer" = lnth, "names" = nms)
sheetz
for (i in sheetz$names) {
print(i)
file.name <- paste(i, " - ", Sys.Date(), ".csv", sep="")
print(file.name)
traceback()
tab <- sheetAsMatrix(ts2$i, header = TRUE, as.data.frame = TRUE, trim =
TRUE)
writecsv(tab, file.name)
}
Now, if I do this as below it works:
tab <- sheetAsMatrix(ts$"Cash Flows211", header = T, as.data.frame = TRUE,
trim = TRUE)
head(tab)
> head(tab)
STATEMENTS OF CASH FLOWS NA NA NA NA
1 Year 0.0 1.0 2.0 3.0
2 Net income <NA> -43.0 -6.0 32.0
3 Plus depreciation <NA> 100.0 100.0 100.0
4 Less increase in inventory -10.0 -15.0 -10.0 -8.0
5 Less increase in accounts receivable - -60.0 -24.0 -18.0
6 Plus increase in accounts payable 8.0 12.0 8.0 6.0
So, why can't I automate this?
BTW, you should be able to access this spreadsheet. I made a dummy Google
account and put this dummy spreadsheet on it.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
