R/os_system.R

In wpgp/popRF: Random Forest-Informed Population Disaggregation

# Authors: Maksym Bondarenko mb4@soton.ac.uk
# Date :  October 2017
# Version 0.1
#
#' get_OS_system function will return a string with OS
#' of the system
#' Tested on Windows 10

#' @rdname get_OS_system
#' @return string
#' @noRd 
get_OS_system <- function(){
  
  sysinf <- Sys.info()
  
  if (!is.null(sysinf)){
    
    OS <- tolower(sysinf['sysname'])
    
    if(OS == 'windows'){
      
      return('windows')
      
    } else if (OS == 'darwin') {
      
      return('osx')
      
    } else if (OS == 'linux') {
      
      return('linux')
      
    }
    
  } else { ## other OS
    OS <- .Platform$OS.type
    if (grepl("^darwin", R.version$os))
      return('osx')
    if (grepl("linux-gnu", R.version$os))
      return('linux')
  }
  
}