这是以下 dbplyr 开发版本的特定问题:
devtools::install_github("tidyverse/dbplyr", ref = devtools::github_pull(72)) 由@edgararuiz 开发
在我看来,传播功能无法正常工作......
df_sample <- tribble(~group1, ~group2, ~group3, ~identifier, ~value,
8, 24, 6, 'mt_0',
12, 18, 24, 6, 'mt_1', 4)
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
df_db <- copy_to(con, df_sample, 'df_sample')
我使用以下命令获得了不正确的结果。传播后应该只有一行数据。
df_db %>% spread(identifier, value)
如果将原始数据下载到本地内存,则结果是正确的。
df_db %>% collect() %>% spread(identifier, value)
有人有什么想法吗?另外,我不确定如何联系@edgarauiz。如果有人可以让他知道,将不胜感激。谢谢!