Извлечение чисел из текстового файла в R

Question

У меня есть несколько текстовых файлов, которые я хочу прочитать и извлечь число, которое находится в строке, содержащей «никогда не классифицируется (0)», и имя файла в качестве кадра данных.

files <- list.files(path= "directory/info/", pattern= "*.txt", full.names = TRUE)

data <- lapply(files, function(x) {

  datxt <- read.table(x, sep = "\t", header = TRUE, stringsAsFactors = FALSE)


  for (i in 1:length(datxt)){
    i = gsub("\\never classified (0)", "", i)
    }

 return(data.frame(file=x,NoOfReturn=i))
})

Пример текстанапример:

LASzip compression (version 3.4r1 c2 50000): POINT10 2
reporting minimum and maximum for all LAS point record entries ...
  X                   0        527
  Y                   0       2009
  Z                   0        241
  intensity           1        314
  return_number       1          1
  number_of_returns   1          1
  edge_of_flight_line 0          0
  scan_direction_flag 0          0
  classification      0          0
  scan_angle_rank     0          0
  user_data           0          0
  point_source_ID     0          0
number of first returns:        2781080
number of intermediate returns: 0
number of last returns:         2781080
number of single returns:       2781080
overview over number of returns of given pulse: 2781080 0 0 0 0 0 0
histogram of classification of points:
         2781080  never classified (0)

И я хочу вернуть имя файла и 2781080 в качестве кадра данных.

Answer 1

Это должно работать:

files <- list.files(path= "directory/info/", pattern= "*.txt", full.names = TRUE)
data <- lapply(files, function(x) {
  # the data we're interested in doesn't seem to be a table 
  # easier to read it in as a character vector
  datxt <- readLines(x)

  # keep only the line with the text we're looking for
  datxt <- datxt[grepl(pattern = "never classified (0)", x = datxt, fixed = TRUE)]

  # get the number from that line
  n <- sub(pattern = "never classified (0)", replacement = "", x = datxt, fixed = TRUE)
  n <- as.numeric(trimws(n))

  return(data.frame(file = x, NoOfReturn = n))
})