R/utils.R

In gaborcsardi/notifier: Cross Platform Desktop Notifications

windows_version <- (function() {

  version <- NULL

  function() {
    if (!is.null(version)) return(version)
    
    ver <- tryCatch(
      system("cmd /c ver", intern = TRUE, ignore.stderr = TRUE),
      error = function(e) NA_character_
    )
    
    if (identical(ver, NA_character_)) {
      version <<- ver
      return(ver)
    }
    
    ver <- paste(ver, collapse = "")  
    ver <- sub("^.*(Version|\\\u7248\\\u672c)[ ]+([0-9\\\\.]+).*$", "\\2", ver,
               perl = TRUE, ignore.case = TRUE)
    ver <- package_version(ver)

    version <<- ver
    version
  }
})()