R/get_os.R

In RajLabMSSM/echotabix: echoverse module: automated creation and querying of tabix files

get_os <- function() {
    OS <- ""
    switch(Sys.info()[["sysname"]],
           Windows = {
               OS <- "Windows"
           },
           Linux = {
               OS <- "Linux"
           },
           Darwin = {
               OS <- "Mac"
           }
    )
    return(OS)
}