R/parse_tf_version.R

In thfuchs/tsRNN: Time Series Forecasting using Recurrent Neural Networks by Keras

#' Parse installed TensorFlow version
#'
#' @export
#' @return numeric vector length 1
#'
#' @examples
#' parse_tf_version()
parse_tf_version <- function() {
  tf <- tensorflow::tf_version()
  as.numeric(gsub("^(\\d+)[\\.-](\\d+)([\\.-]\\d+)*$", "\\1.\\2", tf))
}