tests/testthat/downloadSoftware.R

In aydindemircioglu/SVMBridge: A Bridge to Integrate Different 'SVM' Solvers into R

#' @param	softwareDir	 	base of the directory to download software to (e.g. 'solver' path will be added!)

downloadSoftware = function (solver, softwareDir = NULL, verbose = FALSE) {
	
	if (verbose == TRUE) {
		cat ("Downloading and Building solver ", solver, "\n")
	}
	
	if ((solver == "BSGD") || (solver == "LLSVM")) {
		solver = "BudgetedSVM"
	}
	
	if ((solver == "CVM") || (solver == "BVM")) {
		solver = "libCVM"
	}

	# generate paths
	if (is.null (softwareDir) == TRUE) {
		tmpDir = tempdir()
		softwareDir = file.path (tmpDir, solver)
	} else {
		softwareDir = file.path (softwareDir, solver)
	}
	
	downloadAndBuild = function (softwareDir) {
		system2 ("svn", stdout = NULL, stderr = NULL, args = c("checkout", "--force", "--non-interactive", "--trust-server-cert", paste0 ("https://github.com/aydindemircioglu/SVMBridge/trunk/software/", solver), softwareDir ))
		system2 ("make", stdout = NULL, stderr = NULL, args = c("-C", softwareDir))
	}
	if (verbose == TRUE)
		downloadAndBuild(softwareDir)
	else
		suppressMessages(downloadAndBuild(softwareDir))

	return (softwareDir )
}