internal-projects/21_xmlview-package.md

In jennybc/googlesheets: Manage Google Spreadsheets from R

Using xmlview package

This is more for interactive use.

library(googlesheets)
library(xml2)
library(xmlview)

if (!interactive()) {
  gs_auth(file.path("..", "tests", "testthat", "googlesheets_token.rds"))
}

## Auto-refreshing stale OAuth token.

key <- "1oLRq_aSy5A6uh60-Hk3EZ3bcu-rGJBx_H7VuXRxn2FQ"
ss <- gs_key(key)

## Authorization will be used.

## Sheet successfully identified: "12"

ws <- 1
gs_read(ss)

## Accessing worksheet titled "Sheet1"

## No encoding supplied: defaulting to UTF-8.

## Source: local data frame [2 x 1]
## 
##     foo
##   (chr)
## 1 hello
## 2 world

this_ws <- googlesheets:::gs_ws(ss, ws, verbose = FALSE)
req <- httr::GET(this_ws$listfeed, googlesheets:::get_google_token())
rc <- googlesheets:::content_as_xml_UTF8(req)
xml_view(rc)

{"x":{"xmlDoc":"\nhttp://www.w3.org/2005/Atom\" xmlns:openSearch=\"http://a9.com/-/spec/opensearchrss/1.0/\" xmlns:gsx=\"http://schemas.google.com/spreadsheets/2006/extended\">https://spreadsheets.google.com/feeds/list/1oLRq_aSy5A6uh60-Hk3EZ3bcu-rGJBx_H7VuXRxn2FQ/od6/private/full\u003c/id>2016-02-20T04:25:10.497Z\u003c/updated>http://schemas.google.com/spreadsheets/2006\" term=\"http://schemas.google.com/spreadsheets/2006#list\"/>