googledrive4：如何过滤运球（drive-tibble），将条件应用于tibble中的嵌套列表？

Question

使用 googledrive4 包，访问 google 驱动器上的文件非常容易。

p_load(googledrive4, tidyverse)
dribble1 <- drive_ls()

> dribble1
# A dribble: 2000 × 3
  name           id                                drive_resource   
  <chr>          <drv_id>                          <list>           
1 somefile1.zip  1w76E2ze0p00jtxxxxxxxxxxxxxxxxxxx <named list [37]>
2 somefile2.zip  1Zau_jwYlDHFK4xxxxxxxxxxxxxxxxxxx <named list [37]>
...

但是，我很难根据嵌套在“drive_resource”命名列表中的参数来过滤结果。例如，我希望按日期时间过滤以创建一个仅包含特定日期后保存的文件的运球。

在绝望中，经过多次尝试和错误，我实现了我想要的，分两步：

p_load(tidyverse, lubridate)

# 1 - unnest to make a list of ID's that match my criteria
range <- interval(as_date("2021/1/1", now())

filtered_list <- dribble1 %>%
  unnest_longer(col = drive_resource) %>%
  filter(drive_resource_id == "modifiedTime") %>%
  unnest_longer(drive_resource, values_to = "modtime") %>%
  mutate(modtime = as_datetime(modtime)) %>%
  filter(modtime %within% range)

# 2 - filter the original dribble with filtered list of ID's
result_dribble <- dribble1 %>%
  filter(id %in% filtered_list$id)

这行得通，但我觉得必须有更好的方法来更优雅地处理嵌套列表，而无需创建中间对象。

有人可以解释一下吗？

（很抱歉缺少 reprex。运球是以一种我还没有完全理解的独特方式构造的，并且无法使用 datapasta 重建包含嵌套命名列表的运球）

上面是一个简化的例子，我处理的数据要大得多，我希望 RStudio 的屏幕截图对不熟悉 googledrive4.

的人有意义

Answer 1

经过一夜的思考，我在hoist()

中找到了解决方案

dribble1 %>% 
  hoist(drive_resource, "modifiedTime") %>%
  mutate(modifiedTime = as_datetime(modifiedTime)) %>%
  filter(modifiedTime %within% range)

现在我的代码更短了并且可以立即执行！

作为侧节点，起初我尝试使用unnnest_wider时遇到了一个错误。

> dribble1 %>% unnest_wider(col = drive_resource) 
Error: Names must be unique.
x These names are duplicated:
  * "name" at locations 1 and 6.
  * "id" at locations 2 and 5.
ℹ Use argument `names_repair` to specify repair strategy.

这可以通过提供 names_repair 参数轻松解决。

> dribble1 %>% unnest_wider(col = drive_resource, names_repair = "unique")

这比 unnest_longer() 更好，因为它保留了行。

googledrive4：如何过滤运球（drive-tibble），将条件应用于tibble中的嵌套列表？

googledrive4: How to filter a dribble (drive-tibble), applying criteria to nested list in a tibble?

r

tidyverse

tibble

nested-tibble