#' @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 )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.