## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----loading anyLib------------------------------------------------------
library(anyLib)
## ----dummy folder--------------------------------------------------------
lib <- normalizePath(tempdir(), "/")
f1 <- paste(lib, "folder1", sep = "/")
dir.create(f1)
.libPaths(f1)
## ----save packages, include=FALSE----------------------------------------
foo <- .packages()
## ----install and load a simple CRAN package------------------------------
anyLib("apercu", lib = f1)
## ----install a load a source package-------------------------------------
anyLib(system.file("dummyPackage_0.1.0.tar.gz", package = "anyLib"),
source = TRUE, lib = f1, loadLib = f1)
## ----install and load a simple Bioconductor package----------------------
anyLib("limma", lib = f1, loadLib = f1)
## ----install and load a simple github package----------------------------
anyLib("achateigner/dummyPackage", force = TRUE, lib = f1, loadLib = f1)
## ----only load a github package------------------------------------------
anyLib("dummyPackage", lib = f1, loadLib = f1)
## ----reload, include=FALSE-----------------------------------------------
bar <- .packages()
foobar <- setdiff(bar, foo)
toRemove <- paste0("package:", foobar)
for (i in seq_along(foobar)) {
detach(toRemove[i], character.only = TRUE)
}
## ----install and load from various places--------------------------------
f2 <- paste(lib, "folder2", sep = "/")
dir.create(f2)
anyLib(list("apercu", "limma", "achateigner/dummyPackage"), lib = f2,
loadLib = f2)
## ----reload2, include=FALSE----------------------------------------------
bar <- .packages()
foobar <- setdiff(bar, foo)
toRemove <- paste0("package:", foobar)
for (i in seq_along(foobar)) {
detach(toRemove[i], character.only = TRUE)
}
## ----install and load from list------------------------------------------
f3 <- paste(lib, "folder3", sep = "/")
dir.create(f3)
packagesNeeded <- list("apercu", "limma", "achateigner/dummyPackage")
anyLib(packagesNeeded, lib = f3, loadLib = f3)
## ----reload3, include=FALSE----------------------------------------------
bar <- .packages()
foobar <- setdiff(bar, foo)
toRemove <- paste0("package:", foobar)
for (i in seq_along(foobar)) {
detach(toRemove[i], character.only = TRUE)
}
## ----advanced options----------------------------------------------------
f4 <- paste(lib, "folder4", sep = "/")
dir.create(f4)
anyLib(packagesNeeded,
force = TRUE,
autoUpdate = FALSE,
lib = f4,
loadLib = c(f1, f4))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.