R/gn_version.R

In rgnparser: Parse Scientific Names

#' gn_version
#' 
#' get gnparser version information
#' 
#' @export
#' @return named list, with `version` and `build`
#' @examples 
#' trys <- function(x) try(x, silent=TRUE)
#' if (interactive()) {
#' trys(gn_version())
#' }
gn_version <- function() {
  gnparser_exists()
  # z <- gnparser_cmd("-V", error = FALSE)
  z <- gnparser_cmd("-V", error = FALSE)
  if (z$status != 0) z <- gnparser_cmd("-v", error = FALSE)
  err_chk(z)
  process_version_string(z$stdout)
  # txt <- rawToChar(z$stdout)
  # txt <- strsplit(txt, "\n")[[1]]
  # unlist(lapply(txt[nzchar(txt)], function(w) {
  #   tmp <- gsub("\\s", "", strsplit(w, ":\\s")[[1]])
  #   stats::setNames(list(tmp[2]), tmp[1])
  # }), FALSE)
}