Question

我想使用readr :: read_csv（）读取多个数据集。

我有一个CSV文件，其中包含每个文件的描述，如下所示：

# A tibble: 5 x 8
  Object_Name File_Path      Column1   Column2   Column3   Column4 Column5 Column6
  <chr>       <chr>          <chr>     <chr>     <chr>     <chr>   <chr>   <chr>  
1 Object1     data/file1.csv character character character numeric numeric numeric
2 Object2     data/file2.csv character character character numeric NA      NA     
3 Object3     data/file3.csv character character numeric   NA      NA      NA     
4 Object4     data/file4.csv character numeric   numeric   numeric NA      NA     
5 Object5     data/file5.csv character numeric   numeric   NA      NA      NA

我希望这样的事情能起作用：

for (i in 1:nrow(list_of_files)) {

  obj_name <- list_of_files[i,]$Object_Name
  pth <- list_of_files[i,]$File_Path

  col_types <- as.character(list_of_files[i,3:8])
  col_types <- col_types[!is.na(col_types)]

  # This part doesnt work
  tab <- readr::read_csv(file = pth,
                         col_types = col_types)

  assign(obj_name,tab)

}

通常情况下，猜测是可行的，但我需要确定。

编辑

简化问题，所以也许更清楚。

要在read_csv上指定列类型，您需要调用cols（）。

这有效：

> cols('c', 'n')
cols(
   = col_character(),
   = col_number()
)

这不起作用：

> aa <- c('c','n')
> cols(aa)
Error in switch(x, `_` = , `-` = col_skip(), `?` = col_guess(), c = col_character(),  : 
  EXPR must be a length 1 vector

因为我要遍历一堆文件，所以需要类似于第二个示例的内容。我可以在某处保存具有列规范的字符串，但是如何将字符串转换为cols（）对象？

Answer 1

要获取第二个示例，只需使用do.call：

aa <- c('c','n')
do.call(cols,as.list(aa))

cols(
   = col_character(),
   = col_number()
)

读者：传递一列列类

1 个答案: