FilesExpand file tree

 master

/

platform.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

26 lines (19 loc) · 391 Bytes

 master

/

platform.R

Top

File metadata and controls

• Code
• Blame

26 lines (19 loc) · 391 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

is_windows <- function() {

.Platform$OS.type == "windows"

}

is_mac <- function() {

Sys.info()[["sysname"]] == "Darwin"

}

is_unix <- function() {

.Platform$OS.type == "unix"

}

is_solaris <- function() {

Sys.info()[["sysname"]] == "SunOS"

}

is_sparc <- function() {

info <- Sys.info()

all(

info[["sysname"]] == "SunOS",

info[["machine"]] != "i86pc"

)

}