Compatibiliza o chromdriver com o google chrome

compatibilizar_chromever.R

#' Baixa e atualiza versão do chromedriver com a versão do chrome.
#'
#' @return OK!
#' @export
#'
compatibilizar_chromever <- function(){

 driver  <-  binman::list_versions("chromedriver") |>
    unlist() |>
    utils::tail(1) |>
    unname()


chrome <- system("google-chrome --version", intern = T) |>
         stringr::str_extract("\\d.+") |>
         stringr::str_trim()

v1 <- chrome |>
     stringr::str_extract("\\d+") |>
    as.numeric()

v2 <- driver |>
  stringr::str_extract("\\d+") |>
  as.numeric()

if (v1 > v2) {

u <- "https://googlechromelabs.github.io/chrome-for-testing/known-good-versions-with-downloads.json"

udrive <- jsonlite::fromJSON(u) |>
     purrr::pluck("versions") |>
     dplyr::filter(version == chrome) |>
     purrr::pluck("downloads","chromedriver", 1) |>
     dplyr::filter(platform == "linux64") |>
     dplyr::pull("url")

 arquivo <- binman::app_dir("chromedriver") |>
              paste0("/linux64/", chrome,".zip")

 utils::download.file(udrive, arquivo)

 lista <- utils::unzip(arquivo, list = T)

nd <- file.path(dirname(arquivo), chrome)


path <- utils::unzip(arquivo, exdir = dirname(arquivo)) |>
        purrr::pluck(1) |>
        dirname()

file.rename(path, nd)
 
file.remove(arquivo)

}
return("Ok!")
}