在 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)