Блог

Мне нужны объединенные данные за последние 7 дней. Я использую следующий код, чтобы получить свой результат, но это неподходящий способ. Использование цикла for выдает ошибку. Может быть, я делаю это неправильно.

 tables <- db_list_tables(con)
tables
#Total 366 days

day_366 <- tbl(con, "ga_sessions_20170801") %>%
  head(10) %>% 
  collect()

day_365 <- tbl(con, "ga_sessions_20170730") %>%
  head(10) %>% 
  collect()

day_364 <- tbl(con, "ga_sessions_20170729") %>%
  head(10) %>% 
  collect()

day_363 <- tbl(con, "ga_sessions_20170728") %>%
  head(10) %>% 
  collect()

day_362 <- tbl(con, "ga_sessions_20170727") %>%
  head(10) %>% 
  collect()

day_361 <- tbl(con, "ga_sessions_20170726") %>%
  head(10) %>% 
  collect()

day_360 <- tbl(con, "ga_sessions_20170725") %>%
  head(10) %>% 
  collect()

day_359 <- tbl(con, "ga_sessions_20170724") %>%
  head(10) %>% 
  collect()

seven_days <- rbind(day_366, day_365, day_364, day_363, day_362, day_361, day_360, day_359)
  

Мы можем перебирать объекты и collect

 library(purrr)
library(dbplyr)  
ga_session <- sprintf("ga_sessions_%d", c(20170801, 20170730:20170724))   
seven_days <- map_dfr(ga_session,  ~  tbl(con, .x) %>%
             head %>%
             collect())
  

Или с использованием for цикла

 lst1 <- vector('list', length(ga_session)
for(i in seq_along(ga_session)) {
    lst1[[i]] <- tbl(con, ga_session[i]) %>% 
                 head %>%
                 collect()
   }
out <- do.call(rbind, lst1)