Nothing
#' Set the CGAL header file directory
#'
#' @param path character vector. either a URL or system path
#'
#' @description
#' This package will set the `CGAL_DIR` environmental variable if you don't know how. Then you can re-install the `RcppCGAL` package and the installation should use your preferred source of the CGAL library. Note the cleaner functions will run automatically and replace the calls to std::err and exit in the C code. They have been tested on CGAL 5.6 so are not guaranteed to work with other versions of the CGAL headers.
#'
#'
#' @return Invisibley returns TRUE if the `CGAL_DIR` variable was successfully set or or FALSE if it was not.
#'
#' @seealso [unset_cgal()]
#'
#' @export
#'
#' @examples
#' \dontrun{
#' set_cgal("path/to/include/CGAL")
#' }
set_cgal <- function(path) {
Sys.setenv("CGAL_DIR" = path)
}
#' Unset the CGAL header file directory
#'
#' @param ... Not used at this time
#'
#' @description
#' This package will remove the `CGAL_DIR` environmental variable.
#'
#'
#' @return Invisibley returns TRUE if the `CGAL_DIR` variable was successfully removed or or FALSE if it was not.
#'
#' @seealso [unset_cgal()]
#'
#' @export
#'
#' @examples
#' \dontrun{
#' unset_cgal()
#' }
unset_cgal <- function(...) {
Sys.unsetenv("CGAL_DIR")
}
# following function just exists to avoid warning about utils, which is needed for configure
.not_needed <- function(temp_file, dest_folder, own = FALSE) {
stop("Don't run this function.")
message(" Unzipping the CGAL file\n")
if (!file.exists(dest_folder)) {
dir.create(dest_folder)
}
target_file <- file.path(dest_folder, "CGAL")
tmp_dir_ <- file.path("~","uz_tmp90")
dir.create(tmp_dir_)
utils::untar(tarfile = temp_file, exdir = tmp_dir_, tar = "internal")
unzip_file <- list.dirs(tmp_dir_,
recursive = FALSE, full.names = FALSE)
if (isTRUE(own)) {
source_file <- file.path(tmp_dir_, unzip_file)
} else {
source_file <- file.path(tmp_dir_,unzip_file, "include","CGAL")
}
message(" Moving CGAL folder to its final location\n")
# Move good file into final position
if (!file.exists(target_file)) dir.create(target_file)
file.rename(source_file, target_file)
# Delete temp files
unlink(tmp_dir_, recursive = TRUE)
unlink(temp_file, recursive = TRUE)
return(target_file)
}
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.