R/file_information.R

In skgrange/threadr: Tools to Thread Pieces Of Data Analysis Together

#' Function to get file information. 
#' 
#' \code{file_infomation} uses \code{file.info} but cleans up the returned data
#' frame a little. 
#' 
#' @author Stuart K. Grange
#' 
#' @param files Vector of file names. 
#' 
#' @return Data frame.
#' 
#' @export
file_information <- function(files) {
  
  # Get information
  df <- file.info(files)
  
  # Tidy a little
  df <- tibble::rownames_to_column(df, "file") %>% 
    mutate(file_basename = basename(file)) %>% 
    select(file,
           file_basename,
           everything())
  
  return(df)
  
}