[R] Assistance with httr package with R version 3.3.0

[David Winsemius]

> On May 10, 2016, at 2:08 AM, boB Rudis <bob at rudis.net> wrote:
> 
> I don't fully remember, but I doubt httr::content() ever returned a
> character vector without using the `as="text"` parameter. Try
> switching that line to:
> 
>    html <- content(r, as="text")
> 
> 
> 
> On Tue, May 10, 2016 at 3:27 AM, Luca Meyer <lucam1968 at gmail.com> wrote:
>> Hi Jim,
>> 
>> Thank you for your suggestion. I have actually tried to upload XML and xml2
>> but nothing changed...any other suggestion?
>> 
>> Kind regards,
>> 
>> Luca
>> 
>>> rm(list=ls())
>>> library(httr)
>>> library(XML)
>>> library(xml2)
>>> 
>>> #carico i dati da Google spreadsheets
>>> url <- "
>> https://docs.google.com/spreadsheets/d/102-jJ7x1YfIe4Kkvb9olQ4chQ_TS90jxoU0vAbFZewc/pubhtml?gid=0&single=true
>> "
>>> readSpreadsheet <- function(url, sheet = 1){
>> +   r <- GET(url)
>> +   html <- content(r)
>> +   sheets <- readHTMLTable(html, header=FALSE, stringsAsFactors=FALSE)
>> +   df <- sheets[[sheet]]
>> +   dfClean <- function(df){
>> +     nms <- t(df[1,])
>> +     names(df) <- nms
>> +     df <- df[-1,-1]
>> +     row.names(df) <- seq(1,nrow(df))
>> +     df
>> +   }
>> +   dfClean(df)
>> + }
>>> dati <- readSpreadsheet(url)
>> Error in (function (classes, fdef, mtable)  :
>>  unable to find an inherited method for function ‘readHTMLTable’ for
>> signature ‘"xml_document"’
>>> rm(readSpreadsheet,url)
>> 
>> 2016-05-10 8:52 GMT+02:00 Jim Lemon <drjimlemon at gmail.com>:
>> 
>>> Hi Luca,
>>> The function readHTMLtable is in the XML package, not httr. Perhaps
>>> that is the problem as I don't see a dependency in httr for XML
>>> (although xml2 is suggested).
>>> 
>>> Jim
>>> 
>>> 
>>> On Tue, May 10, 2016 at 2:58 PM, Luca Meyer <lucam1968 at gmail.com> wrote:
>>>> Hello,
>>>> 
>>>> I am trying to run a code I have been using for a few years now after
>>>> downloading the new R version 3.3.0 and I get the following error:
>>>> 
>>>>> rm(list=ls())
>>>>> library(httr)
>>>>> 
>>>>> #carico i dati da Google spreadsheets
>>>>> url <- "
>>>> 
>>> https://docs.google.com/spreadsheets/d/102-jJ7x1YfIe4Kkvb9olQ4chQ_TS90jxoU0vAbFZewc/pubhtml?gid=0&single=true
>>>> "
>>>>> readSpreadsheet <- function(url, sheet = 1){
>>>> +   r <- GET(url)
>>>> +   html <- content(r)
>>>> +   sheets <- readHTMLTable(html, header=FALSE, stringsAsFactors=FALSE)
>>>> +   df <- sheets[[sheet]]
>>>> +   dfClean <- function(df){
>>>> +     nms <- t(df[1,])
>>>> +     names(df) <- nms
>>>> +     df <- df[-1,-1]
>>>> +     row.names(df) <- seq(1,nrow(df))
>>>> +     df
>>>> +   }
>>>> +   dfClean(df)
>>>> + }
>>>>> dati <- readSpreadsheet(url)
>>>> Error in (function (classes, fdef, mtable)  :
>>>>  unable to find an inherited method for function ‘readHTMLTable’ for
>>>> signature ‘"xml_document"’
>>>>> rm(readSpreadsheet,url)
>>>> 
>>>> Can anyone suggest a solution to it?
>>>> 
>>>> Thanks,
>>>> 
>>>> Luca
>>>> 
>>>>        [[alternative HTML version deleted]]
>>>> 
>>>> ______________________________________________
>>>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>>> 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.
>>> 
>> 
>>        [[alternative HTML version deleted]]
>> 
>> ______________________________________________
>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> 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.
> 
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.

David Winsemius
Alameda, CA, USA