Nothing
#' Download Graphab if not present on the user's machine
#'
#' @description The function checks for the presence of Graphab (.jar) on the
#' user's machine and downloads it if absent. It also checks that users have
#' installed java on their machine.
#'
#' @param res Logical indicating whether a message says if Graphab has been
#' downloaded or not.
#' @param return Logical indicating whether the function returns a 1 or a 0
#' to indicate if Graphab has been downloaded or not.
#' @return If res = TRUE, the function displays a message indicating to users
#' what has been done.
#' If return = TRUE, it returns a 0 if Graphab is already on the machine and
#' a 1 if it has been downloaded.
#' @details If the download does not work, you can create a directory named
#' 'graph4lg_jar' in the directory \code{rappdirs::user_data_dir()} and copy
#' Graphab software downloaded from
#' \url{https://thema.univ-fcomte.fr/productions/download.php?name=graphab&version=2.8&username=Graph4lg&institution=R}
#' @export
#' @author P. Savary
#' @examples
#' \dontrun{
#' get_graphab()
#' }
get_graphab <- function(res = TRUE, return = FALSE){
#########################################################################
#########################################################################
#########################################################################
# Check if java is installed
if(Sys.which("java") == ""){
warning("Please install java if you want to use Graphab")
}
# Check for graphab.jar and download it if necessary
data_dir <- rappdirs::user_data_dir()
if(!("graphab-2.8.jar" %in% list.files(paste0(data_dir, "/graph4lg_jar")))){
if(!dir.exists(paths = paste0(data_dir, "/graph4lg_jar"))){
dir.create(path = paste0(data_dir, "/graph4lg_jar"))
}
if(!dir.exists(paths = paste0(data_dir, "/graph4lg_jar/plugins"))){
dir.create(path = paste0(data_dir, "/graph4lg_jar/plugins"))
}
url <- "https://thema.univ-fcomte.fr/productions/download.php?name=graphab&version=2.8&username=Graph4lg&institution=R"
destfile <- "/graph4lg_jar/graphab-2.8.jar"
destfile2 <- "/graph4lg_jar/plugins/graphab-2.8.jar"
utils::download.file(url, paste0(data_dir, "/", destfile),
method = "auto",
mode = "wb")
file.copy(from = paste0(data_dir, "/", destfile),
to = paste0(data_dir, "/", destfile2),
overwrite = TRUE)
graphab <- 1
if(res){
message("Graphab has been downloaded")
}
} else {
graphab <- 0
if(res){
message("Graphab is already on your machine")
}
}
if(return){
return(graphab)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.