R/linux_release.R

In skgrange/systemr: Tools to Return Structured System Calls

#' Function to get Linux release information. 
#' 
#' @author Stuart K. Grange
#' 
#' @return Tibble.
#' 
#' @export
linux_release <- function() {
  
  # Get and clean release call
  text <- tryCatch({
    system("lsb_release -a", intern = TRUE, ignore.stderr = TRUE)
  }, error = function(e) {
    system("cat /etc/redhat-release", intern = TRUE, ignore.stderr = TRUE)
  })  
  
  # Filter
  text <- stringr::str_trim(text)
  text <- grep("^LSB", text, invert = TRUE, value = TRUE)
  text_split <- stringr::str_split_fixed(text, ":\t", 2)
  
  # Catch NA
  text_split[, 2] <- ifelse(text_split[, 2] == "n/a", NA, text_split[, 2])
  
  # Create empty data frame with correct number of variables
  df <- data.frame(matrix(NA, nrow = 1, ncol = length(text_split[, 1])))
  
  # Give names
  names(df) <- threadr::str_to_underscore(text_split[, 1])
  
  # Add values to data frame
  df[1, ] <- text_split[, 2]
  
  # To tibble
  df <- as_tibble(df)
  
  return(df)
  
}