r-使用tidyverse处理单个工作表

Question

我是一个新手，正在尝试处理主excel文件中的各个工作表。当前的脚本可以迭代每个工作表，但我无法将单个工作表传递到我的自定义函数中。工作表的行数不相等，程序试图将所有工作表推到一个数据帧中，但失败了。我的目标是处理单个表并与另一个表连接，并执行独立操作。

非常感谢您的意见和建议

Input = 'test.xlsx'
run_test <- function(x){
newFrame <- data.frame(x) %>%
select(ID, time, measure) %>%
left_join(some_frame, by=c('ID'='subject'))
........
........
}

newFrame <- Input %>% 
excel_sheets() %>%  
set_names()  %>% 
map(read_excel, path = Input) %>%  run_test(.)

Answer 1

如下更新您的函数：

run_test <- function(x,some_frame){
newFrame <- map(x, data.frame) %>%
# You are missing subject in your select. I added it.
map(select, ID, time, measure, subject) %>%
map(left_join, some_frame, by=c('ID'='subject'))
........
........
}