From 478418ccb6b59503b578cc21a2a3684d4cb55c43 Mon Sep 17 00:00:00 2001
From: Corneel den Hartogh <c.f.den.hartogh@vu.nl>
Date: Mon, 14 Aug 2023 18:19:54 +0200
Subject: [PATCH] add: build script for local testing

---
 build.R | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 build.R

diff --git a/build.R b/build.R
new file mode 100644
index 0000000..9b9d958
--- /dev/null
+++ b/build.R
@@ -0,0 +1,72 @@
+############################################### #############################
+### build_vvmover.R
+############################################### #############################
+### R code for Student Analytics VU University Amsterdam
+### Copyright 2018 VU
+### Web Page: http://www.vu.nl
+### Contact: Theo Bakker (t.c.bakker@vu.nl)
+###
+### Filename: build_vvMover.R
+### Purpose: This script is used to build and release the vvmover pacakge
+###
+### Dependencies: None
+###
+### Datasets used: Datasets
+###
+### Comments:
+### 1) None
+###
+############################################### #############################
+### TODO:
+### 1) None
+###
+############################################### #############################
+### History:
+### 28-09-2018: JvZ: Create file
+############################################### #############################
+##
+## =============================================== ==============================
+## Install and load the packages
+build_packages <- c("devtools",
+                    "usethis",
+                    "renv")
+
+## install the packages that are not installed yet
+lapply(build_packages[which(!build_packages %in% installed.packages())],
+       install.packages)
+
+renv::load("../sa-scripts/")
+
+## Set project name
+package_name <- basename(rstudioapi::getActiveProject())
+
+## load the packages
+invisible(lapply(build_packages,
+                 library,
+                 character.only = TRUE))
+
+## =============================================== ==============================
+## Build the new vusa package
+
+
+## Check if the package is correct and can be built.
+devtools::document()
+devtools::check(manual = T)
+devtools::build_manual(path = paste0("G:/DSZ/SA2016/Datasets/Packages/package_man/", package_name, "/"))
+
+## Commit your changes in Smartgit (or manually in the terminal, next to console)
+# If you don't do this, you will get the question with the (use_version) command below:
+#There are uncommitted changes and you're about to bump version
+#Do you want to proceed anyway?
+# Before answering this question you can also commit, but if you don't
+# nothing is changed
+
+
+## Increment the version number and check in that change in Git
+usethis::use_version()
+
+## Build the package, and release it to the correct folder
+devtools::build(path = paste0("G:/DSZ/SA2016/Datasets/Packages/", package_name, "/"))
+
+## Make use of the development version again
+usethis::use_dev_version()