Question

我想以功能形式简化以下内容：

  write_file(s01e01, 's01e01.txt')
  write_file(s01e02, 's01e02.txt')
  write_file(s01e03, 's01e03.txt')
  write_file(s02e01, 's01e01.txt') ...

这些字符对象s01e01等都存在于名为s[01-05]e[01-03]的全局环境中。我知道我可以将它们全部放入列表中，然后使用*apply或purrr函数将它们写入文件，但是有一种方法可以使用而是指定字符串模式？

我知道我可以得到想要的文件名字符串使用

names <- c('s01e01', 's01e02', 's01e03', ... , 's05e03')
files <- paste(names, 'txt', sep = '.')

那么我该如何构造一个函数

write_txt_files <- function(names) {
 files <- paste(names, 'txt', sep = '.'))

 # 15 variables from s01e01 to s05e03
 c1 <- c('01', '02', '03', '04', '05')
 c2 <- c('01', '02', '03')
 varnames <- paste0(paste0('s', c1), rep(paste0('e', c2), 5)) %>% sort
 vectorized_write_file(convertStringToExpr(varnames), files)
                       # ^bare object                 ^strings
}

Answer 1

您可以使用get()代替convertStringToExpr()函数。这将获得带有传递给它的字符串名称的变量的值。但是请记住，在全局名称空间中包含所有这些不同的变量不是一个好习惯。如果将所有这些对象都保留在（命名）列表中，则使用起来会容易得多。至少这是R向。

如何构建并遍历引用环境对象的一组表达式（无列表结构）？ [R]

1 个答案: