search

artemklevtsov / RGA

A Google Analytics API client for R
http://cran.r-project.org/package=RGA
32 stars 13 forks source link

Проблемы с записью в файл #8

Closed jenccnej closed 8 years ago

jenccnej commented 8 years ago

Здравствуйте! Помогите пожалуйста побороть проблему. При использовании RGA для выгрузки большого (более 1 млн. строк) кол-ва данных с "фетчингом", получаю странную ошибку при записи в файл:

Warning messages:
1: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 1 -- 560223 строки, чтобы заменить 376588 строк
2: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 2 -- 560223 строки, чтобы заменить 376588 строк
3: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 3 -- 560223 строки, чтобы заменить 376588 строк
4: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 4 -- 560223 строки, чтобы заменить 376588 строк
5: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 5 -- 560223 строки, чтобы заменить 376588 строк
6: In `[<-.data.frame`(`*tmp*`, , value = list(dimension3 = c(74898L,  :
  у элемента замены 6 -- 560223 строки, чтобы заменить 376588 строк

Для выгрузки использую следующий скрипт:

Sys.setenv(http_proxy="http://@???.???.?.?:????")
Sys.setenv(https_proxy="https://@???.???.?.?:????")

profile.id <- ?????????
install.packages("devtools", repos = "https://cran.rstudio.com/")
library(devtools)
install_github("artemklevtsov/RGA")
library(RGA)
#options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))
#Sys.setlocale("LC_CTYPE","russian")

ga_token <- authorize(username = "???????@?????????.com",
                      client.id = "????????????????????.apps.googleusercontent.com",
                      client.secret = "??????????????????????",
                      cache = "/.???????@?????????.com-token.rds", new.auth = FALSE)

ga_data <- get_ga(profile.id, start.date = "2015-10-23", end.date = "yesterday",
                  metrics = "ga:totalEvents,ga:uniqueEvents",
                  dimensions = "ga:dimension3,ga:dimension17,ga:dimension1,ga:eventLabel",
                  filter = "", sort = "-ga:totalEvents",
                  fetch.by = "week",
                  token = ga_token, max.results = NULL)

write.csv(ga_data, file = "????UserBehavior.csv")
artemklevtsov commented 8 years ago

Доброго времени.

После Вашего сообщения на Bitvucket'е я провёл ряд тестов и выявил ошибку при сборке таблиц в функции fetch_by(). Эта проблема была пофикшена в 64c548ca1e5f52a63858bd93aa3b896308df5e22.

Уточните, пожалуйста, воспроизводится ли проблема на актуальной версии пакета из гит-репозитория.

В случае, если проблема всё-таки воспроизводится, приложите вывод команд:

str(ga_data)
attributes(ga_data)
jenccnej commented 8 years ago

Спасибо огромное, теперь запись происходит без ошибок!