read data from google doc

http://thebiobucket.blogspot.com/2012/03/r-function-to-read-data-from-google.html




google_ss <- function(gid = NA, key = NA)

    {

    if (is.na(gid)) {stop("\nWorksheetnumber (gid) is missing\n")}

    if (is.na(key)) {stop("\nDocumentkey (key) is missing\n")}

    require(RCurl)

    url <- getURL(paste("https://docs.google.com/spreadsheet/pub?key=", key,

                        "&single=true&gid=", gid - 1, "&output=csv", sep = ""),

                  cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl"))

    read.csv(textConnection(url), header = T, sep = ",")

    }

 

## Example:

## Mind that the worksheets are numbered consecutively from 0 to n,

## irrespective of the actual worksheet-name.

## The key should be put in apostrophes.

## And, the URL works only for published spreadsheets!

 

(data <- google_ss(gid = 0,

                   key = "0AmwAunwURQNsdDNpZzJqTU90cmpTU0sza2xLTW9fenc"))