R/malavi_version.R

In vincenzoaellis/malaviR: An R interface to MalAvi

#' Get version number and upload date from MalAvi website
#' @importFrom magrittr %>%
#' @importFrom xml2 read_html
#' @importFrom rvest html_text
#' @importFrom stringr str_extract
#' @export

malavi_version <- function(){
  read_html("http://130.235.244.92/Malavi/JavaScript/footer.js") %>%
    html_text() %>%
    str_extract(pattern = "Version ([0-9]|[0-9]+).([0-9]|[0-9]+).([0-9]|[0-9]+), ([A-Z][a-z]+|[A-Z][a-z]+.) ([0-9]|[0-9]+)([a-z]+|), [0-9]+")
}