build

build/build_mac.R

@@ -0,0 +1,11 @@
+## build for mac
+app <- "shinyAce"
+curr <- setwd("../")
+devtools::install(app)
+f <- devtools::build(app)
+system(paste0("R CMD INSTALL --build ", f))
+setwd(curr)
+
+## https://stackoverflow.com/a/37292839/1974918
+# devtools::build() %>%
+  # install.packages(repos = NULL, type = "source")

build/build_shinyAce.R

@@ -0,0 +1,64 @@
+## could this ensure inst/rstudio/*.dcf are ignored during build?
+## see https://stackoverflow.com/a/42907049/1974918
+# devtools::use_build_ignore(c("inst/rstudio"))
+
+curr <- getwd()
+
+## building shinyAce packages for mac and windows
+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")
+
+dirsrc <- file.path("../minicran/src/contrib")
+
+if (rv == "3.3") {
+  dirmac <- file.path("../minicran/bin/macosx/mavericks/contrib", rv)
+} else {
+  dirmac <- file.path("../minicran/bin/macosx/el-capitan/contrib", rv)
+}
+
+dirwin <- file.path("../minicran/bin/windows/contrib", rv)
+
+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, "*"))
+}
+
+sapply("shinyAce", rem_old)
+
+## avoid 'loaded namespace' stuff when building for mac
+system(paste0(Sys.which("R"), " -e \"setwd('", getwd(), "'); source('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
+  path <- normalizePath("../")
+  sapply(list.files(path, pattern = "*.tar.gz", full.names = TRUE), file.copy, dirsrc)
+  unlink("../*.tar.gz")
+  sapply(list.files(path, pattern = "*.tgz", full.names = TRUE), file.copy, dirmac)
+  unlink("../*.tgz")
+  sapply(list.files(path, pattern = "*.zip", full.names = TRUE), 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("../minicran")
+  system("git add --all .")
+  mess <- paste0("shinyAce package update: ", format(Sys.Date(), format = "%m-%d-%Y"))
+  system(paste0("git commit -m '", mess, "'"))
+  system("git push")
+}
+
+setwd(curr)

build/build_win.R

@@ -0,0 +1,15 @@
+## build for windows
+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 Rstudio > Tools > Global Options > Rversion")
+}
+
+app <- "shinyAce"
+curr <- setwd("../")
+devtools::install(app)
+f <- devtools::build(app)
+system(paste0("R CMD INSTALL --build ", f))
+setwd(curr)