在 R 中对多个文件使用 readLines

Question

我的问题与主题相似，我想一次加载两个文件。 我知道我可以使用函数 list.files。 但是，我不知道如何正确应用它才能使我的程序正常工作。 我还想问一下，如何为每个加载的文件制作两帧数据。 下面是我的代码的外观（对于一个文件）：

txt <- stri_read_lines("script.R")
txt <- txt[txt != ""]
r1 <- strsplit(txt, "")
r2 <- lengths(r1)
r3 <- unlist(r1)
r4 <- rep(
  seq_along(r1),
  r2
)
r5<- unlist(
  lapply(r2, seq_len)
)
TD <- data.frame(
  signs = r3,
  rows= r4,
  columns= r5
)
TD

Answer 1

您可以将代码定义为函数，然后在lapply或sapply使用它：

readfiles <- function(docname){
  txt <- stri_read_lines(docname)
  txt <- txt[txt != ""]
  r1 <- strsplit(txt, "")
  r2 <- lengths(r1)
  r3 <- unlist(r1)
  r4 <- rep(seq_along(r1), r2)
  r5 <- unlist(lapply(r2, seq_len))
  TD <- data.frame(
          signs=r3,
          rows=r4,
          columns=r5)
  return(TD)
}

docnames <- list.files(pattern="*.R")
yourdocs <- lapply(docnames, readfiles)
list2env(yourdocs)