R/las_read_mnemonics_df.R

In Gitmaxwell/lastools: Tools for reading/writing and maniplulating Canadian Well Logging Society (CWLS) Format V1.2 or 2.0 LAS Files as R Objects

#' @title Read las curve mnemonics data to data frame
#'
#' @description This function extracts las mnemonics from all las files in a directory
#' @param dir The Target Directory containing the .las files (required)
#' @export
#' @examples
#' read_las_mnemonics_df(".")


read_las_mnemonics_df <- function(dir)

{
  get_mnemonics <- function(x)

  {
    las <- lastools::read_las(x)
    mnem.df <- as.data.frame(las$CURVE$MNEM)
    mnem.df <- as.data.frame(las$CURVE$DESCRIPTION)
    names(mnem.df) <- c("mnem")
    return(mnem.df)
  }
  list.of.files <- list.files(dir, pattern = "\\.las$",recursive = TRUE, full.names = T)
  mnem <- lapply(list.of.files,function(x) get_mnemonics(x))
  mnem <-unique(as.data.frame(do.call(rbind,mnem)))
  return (mnem)
}