Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.