build_r.R 2.11 KB
Newer Older
1
# For macOS users who have decided to use gcc
2
# (replace 8 with version of gcc installed on your machine)
James Lamb's avatar
James Lamb committed
3
4
5
6
7
# NOTE: your gcc / g++ from Homebrew is probably in /usr/local/bin
#export CXX=/usr/local/bin/g++-8 CC=/usr/local/bin/gcc-8
# Sys.setenv("CXX" = "/usr/local/bin/g++-8")
# Sys.setenv("CC" = "/usr/local/bin/gcc-8")

8
9
10
11
library(testthat)
library(roxygen2)
library(devtools)

James Lamb's avatar
James Lamb committed
12
13
# R returns FALSE (not a non-zero exit code) if a file copy operation
# breaks. Let's fix that
14
15
16
17
.handle_result <- function(res) {
  if (!res) {
    stop("Copying files failed!")
  }
James Lamb's avatar
James Lamb committed
18
19
20
21
22
23
24
}

# Make a new temporary folder to work in
unlink(x = "lightgbm_r", recursive = TRUE)
dir.create("lightgbm_r")

# copy in the relevant files
25
26
27
28
result <- file.copy(from = "R-package/./",
                    to = "lightgbm_r/",
                    recursive = TRUE,
                    overwrite = TRUE)
James Lamb's avatar
James Lamb committed
29
30
.handle_result(result)

31
32
33
34
result <- file.copy(from = "include/",
                    to = file.path("lightgbm_r", "src/"),
                    recursive = TRUE,
                    overwrite = TRUE)
James Lamb's avatar
James Lamb committed
35
36
.handle_result(result)

37
38
39
40
result <- file.copy(from = "src/",
                    to = file.path("lightgbm_r", "src/"),
                    recursive = TRUE,
                    overwrite = TRUE)
James Lamb's avatar
James Lamb committed
41
42
.handle_result(result)

43
44
45
result <- file.copy(from = "CMakeLists.txt",
                    to = file.path("lightgbm_r", "inst", "bin/"),
                    overwrite = TRUE)
James Lamb's avatar
James Lamb committed
46
47
48
.handle_result(result)

# rebuild documentation
49
devtools::document(pkg = "lightgbm_r")
James Lamb's avatar
James Lamb committed
50
51
52
53
54

# Build the package
# NOTE: --keep-empty-dirs is necessary to keep the deep paths expected
#       by CMake while also meeting the CRAN req to create object files
#       on demand
55
56
devtools::build(pkg = "lightgbm_r",
                args = c("--keep-empty-dirs"))
James Lamb's avatar
James Lamb committed
57
58
59

# Install the package
version <- gsub(
60
61
62
63
64
65
66
  "Version: ",
  "",
  grep(
    "Version: ",
    readLines(con = file.path("lightgbm_r", "DESCRIPTION")),
    value = TRUE
  )
James Lamb's avatar
James Lamb committed
67
68
69
70
71
72
)
tarball <- file.path(getwd(), sprintf("lightgbm_%s.tar.gz", version))

system(sprintf("R CMD INSTALL %s --no-multi-arch", tarball))

# Run R CMD CHECK
73
# R CMD CHECK lightgbm_2.1.2.tar.gz --as-cran | tee check.log | cat