Temat: Zaczytywanie danych w formacie *.csv z GitHub do R

Cześć,

chciałbym wczytać do R bazę danych z serwisu GitHub w formacie pliku *.csv bazując na wskazówkach z
http://stackoverflow.com/questions/14441729/read-a-csv...

library(RCurl)

bgg<-getURL("https://raw.githubusercontent.com/rasmusgreve/BoardGameGeek/master/BoardGameGeek/data2014-04-03_03-35-14.csv")

y <- read.csv(text=bgg)

niestety otrzymuję błąd:

Error in function (type, msg, asError = TRUE)  :

SSL certificate problem: unable to get local issuer certificate

oraz

Error in textConnection(text, encoding = "UTF-8") : 

  object 'bgg' not found

Co robię źle? Jak poprawnie zaczytać dane z serwisu?

Temat: Zaczytywanie danych w formacie *.csv z GitHub do R

nie prościej tak?

y<-read.csv("https://raw.githubusercontent.com/rasmusgreve/BoardGameGeek/master/BoardGameGeek/data2014-04-03_03-35-14.csv", sep=";", header=TRUE)

 

wtedy działa.Ten post został edytowany przez Autora dnia 07.01.15 o godzinie 00:40

Temat: Zaczytywanie danych w formacie *.csv z GitHub do R

Spróbowałem, niestety i tym razem pojawia się u mnie (inny) błąd

> require(RCurl)

Loading required package: RCurl

Loading required package: bitops[quote]y<-read.csv("https://raw.githubusercontent.com/rasmusgreve/BoardGameGeek/master/BoardGameGeek/data2014-04-03_03-35-14.csv", sep=";", header=TRUE)[/quote]Error in file(file, "rt") : cannot open the connection

In addition: Warning message:

In file(file, "rt") : unsupported URL scheme

Próbowałem też tego podejścia:

>mycsv <- getURL("https://raw.githubusercontent.com/rasmusgreve/BoardGameGeek/master/BoardGameGeek/data2014-04-03_03-35-14.csv", sep=";", header=TRUE)

Error in function (type, msg, asError = TRUE)  :

SSL certificate problem: unable to get local issuer certificate

In addition: Warning message:

In mapCurlOptNames(names(.els), asNames = TRUE) :

Unrecognized CURL options: sep

> temporaryFile <- tempfile()

> con <- file(temporaryFile, open = "w")

> cat(mycsv, file = con)

Error in cat(mycsv, file = con) : object 'mycsv' not found[quote]close(con)

read.csv(temporaryFile)[/quote]Error in read.table(file = file, header = header, sep = sep, quote = quote,  :

no lines available in input

jednak nadal bezskutecznie.
Coś jest na rzeczy z połączeniem poprzez certyfikat SSL. Może jeszcze jakiś pomysł lub uwagi.Ten post został edytowany przez Autora dnia 07.01.15 o godzinie 18:35

Temat: Zaczytywanie danych w formacie *.csv z GitHub do R

Spróbuj z ssl.verifypeer = FALSE

 > x<-getURL('https://raw.githubusercontent.com/rasmusgreve/BoardGameGeek/master/BoardGameGeek/data2014-04-03_03-35-14.csv', ssl.verifypeer = FALSE)

 > y <- read.csv(text = x, sep=";", header=TRUE)

 > dim(y)

[1] 61814    27

 > names(y)

 [1] "id"                 "name"               "year_published"     "min_players"        "max_players"        "playingtime"       

 [7] "min_age"            "users_rated"        "average_rating"     "rating_stddev"      "num_owned"          "num_trading"       

[13] "num_wanting"        "num_wishing"        "num_comments"       "num_players_best"   "num_players_rec"    "num_players_notrec"

[19] "suggested_age"      "categories"         "mechanics"          "boardgamefamilies"  "implementation_of"  "designers"         

[25] "artists"            "publishers"         "X"

Ten post został edytowany przez Autora dnia 07.01.15 o godzinie 18:54

Temat: Zaczytywanie danych w formacie *.csv z GitHub do R

Super! O to chodziło! Właśnie wpadłem w Internecie na to jak poradzić sobie z protokołem SSL, ale brzydko zaczytywał dane, a Twój post pomógł też w ostatniej fazie

y <- read.csv(text = x, sep=";", header=TRUE)

Dziękuję!Ten post został edytowany przez Autora dnia 07.01.15 o godzinie 19:06