drake-r-package - 如何从 r-drake 中的多个文件导入？

Question

我想从多个源文件中导入类似类别的数据。

每个来源都有一个短标签。

我怎样才能将它合并到德雷克中，而不会将每个文件都写成自己的目标？

我认为以下方法会起作用，但事实并非如此。理想情况下，我希望有目标raw_a和raw_b.

input_files <- list(
  'a' = 'file_1.csv',
  'b' = 'file_2.csv'
)

plan <-
  drake::drake_plan(
    raw = drake::target(
      import_file(file),
      transform = map(
        file = file_in(!! input_files)
      )
    )
  )

和

import_file <- function(file) {
  readr::read_csv(file, skip = 2)
}

Answer 1

你是如此接近。file_in()需要从字面上进入命令，而不是转换。

library(drake)
input_files <- c("file_1.csv", "file_2.csv")

plan <- drake_plan(
  raw = target(
    import_file(file_in(file)),
    transform = map(file = !!input_files)
  )
)

config <- drake_config(plan)
vis_drake_graph(config)

^{由reprex 包（v0.3.0）于 2019 年 10 月 19 日创建}

Answer 2

这可能是惯用的解决方案。

plan <-
  drake::drake_plan(
    raw = drake::target(
      import_file(file),
      transform = map(
        file = file_in('file_1.csv', 'file_2.csv'),
        label = c('a', 'b'),
        .id = label
      )
    )
  )

Answer 3

file_in 需要围绕整个字符串

plan <-
  drake::drake_plan(
    raw = drake::target(
      import_file(file),
      transform = map(
        file = list(
  file_in('file_1.csv'),
  file_in('file_2.csv')
)
      )
    )
  )