if(exists("GoogleDocsPassword")) {
# getGoogleDocsConnection("my login", "my password")
con = getGoogleDocsConnection(names(GoogleDocsPassword), GoogleDocsPassword)
x = "1, 2, 3\n4, 5, 6\n"
uploadDoc(x, con, name = "direct csv", type = "csv")
deleteDoc("Untitled Presentation", con)
# uploading to a folder
# Specify the folder object
docs = getDocs(con)
uploadDoc(x, con, name = "boo", type = "csv", folder = docs$MyFolder)
f = docs$MyFolder
f[["boo1", type = 'csv']] = x
# We'll have to lookup the folder id in the call.
uploadDoc(x, con, name = "boo2", type = "csv", folder = "MyFolder")
# Give the explicit URL directly
uploadDoc(x, con, name = "boo3", type = "csv", folder = I(docs$MyFolder@content["src"]))
}
Run the code above in your browser using DataLab