build/build_radiant.R

In PK258/Deloitte-R-App: Business Analytics using R and Shiny

setwd("~/gh")

## building radiant packages for mac and windows
dev <- FALSE

if (isTRUE(dev)) {
  devprompt <- readline(prompt = paste0("Are you sure you want to build a developement version y/n: "))
  if (grepl("[nN]", devprompt)) {
    stop("Set 'dev' to FALSE")
  }
}

rv <- R.Version()
rv <- paste0(rv$major, ".", strsplit(rv$minor, ".", fixed = TRUE)[[1]][1])

rvprompt <- readline(prompt = paste0("Running for R version: ", rv, ". Is that what you wanted y/n: "))
if (grepl("[nN]", rvprompt)) {
  stop("Change R-version using RSwitch")
}

if (isTRUE(dev)) {
  base <- "minicran/dev"
} else {
  base <- "minicran"
}

dirsrc <- file.path(base, "src/contrib")

if (rv == "3.3") {
  dirmac <- file.path(base, "bin/macosx/mavericks/contrib", rv)
} else {
  dirmac <- file.path(base, "bin/macosx/el-capitan/contrib", rv)
}

dirwin <- file.path(base, "bin/windows/contrib", rv)
dirwin

if (!file.exists(dirsrc)) dir.create(dirsrc, recursive = TRUE)
if (!file.exists(dirmac)) dir.create(dirmac, recursive = TRUE)
if (!file.exists(dirwin)) dir.create(dirwin, recursive = TRUE)

## delete older version of radiant
rem_old <- function(app) {
  unlink(paste0(dirsrc, "/", app, "_*"))
  unlink(paste0(dirmac, "/", app, "_*"))
  unlink(paste0(dirwin, "/", app, "_*"))
}

apps <- c(
  "radiant.data",
  "radiant.design",
  "radiant.basics",
  "radiant.model",
  "radiant.multivariate",
  "radiant.update",
  "radiant"
)

sapply(apps, rem_old)

## probably need to restart Rstudio before building
## avoid 'loaded namespace' stuff when building for mac
system(paste0(Sys.which("R"), " -e \"source('radiant/build/build_mac.R')\""))

win <- readline(prompt = "Did you build on Windows? y/n: ")
if (grepl("[yY]", win)) {

  ## move packages to radiant_miniCRAN. must package in Windows first
  setwd("~/gh/")
  sapply(list.files(".", pattern = "*.tar.gz"), file.copy, dirsrc)
  unlink("*.tar.gz")
  sapply(list.files(".", pattern = "*.tgz"), file.copy, dirmac)
  unlink("*.tgz")
  sapply(list.files(".", pattern = "*.zip"), file.copy, dirwin)
  unlink("*.zip")

  tools::write_PACKAGES(dirmac, type = "mac.binary")
  tools::write_PACKAGES(dirwin, type = "win.binary")
  tools::write_PACKAGES(dirsrc, type = "source")

  # commit to repo
  setwd("~/gh/minicran")
  system("git add --all .")
  # mess <- paste0("radiant package updates: ", format(Sys.Date(), format = "%m-%d-%Y"))
  # mess <- "code wrapping"
  mess <- "MRB"
  system(paste0("git commit -m '", mess, "'"))
  system("git push")
  setwd("~/gh/radiant")
}