Question

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

implementation ('org.glassfish.jersey.containers:jersey-container-servlet:2.25.1'){
        exclude module : 'javax.inject'
    }

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)

对R中的多个文件使用readLines

1 个答案: