epiverse-trace / etdev

Internal package providing tools for Epiverse-TRACE developers
Other
1 stars 0 forks source link

List of functions to be provided by this package #1

Open Bisaloo opened 2 years ago

Bisaloo commented 2 years ago
Bisaloo commented 2 years ago
extract_min_r_version <- function(path) {
  read.dcf("DESCRIPTION", "Depends") |> 
    strsplit(",") |> 
    unlist() |> 
    trimws() |> 
    (\(x) grep("R ", x, value = TRUE))() |> 
    (\(x) gsub("^R \\(>=?\\s(.+)\\)", "\\1", x))() |> 
    unname()
}