library(modules)
devtools::install()
devtools::test()
devtools::build_vignettes()
knitr::knit("vignettes/modulesInR.Rmd", "README.md")
text <- c(
"[![Build Status](https://github.com/wahani/modules/actions/workflows/rcmdcheck.yml/badge.svg?branch=main)](https://github.com/wahani/modules/actions)",
"[![codecov.io](https://codecov.io/github/wahani/modules/coverage.svg?branch=master)](https://codecov.io/github/wahani/modules?branch=master)",
"[![CRAN](http://www.r-pkg.org/badges/version/modules)](https://cran.r-project.org/package=modules)",
"![Downloads](http://cranlogs.r-pkg.org/badges/modules)",
"# Modules in R",
readLines(
"README.md"
)[-(1:9)]
)
writeLines(text, "README.md")
https://m.tiktok.com/passport/email/unbind/index/?unbind_ticket=vRGFtnMfdskVwHyCwUPmXUEZEXdFZNtx&aid=1233&locale=en&language=en
## TODO
## - depend
## - on .tar.gz
library("modules")
library("parallel")
m <- module({
import("stats", "median")
})
m <- module({
import("base", "identity", "search")
identity
fun <- function(x) {
identity(x)
}
})
mfun <- local(envir = new.env(parent = baseenv()), {
modules::import("base", "identity")
function(x) {
base::identity(x)
}
})
modules::getSearchPath(environment(m$fun)) # this setup is slow
modules::getSearchPath(environment(mfun)) # this setup is slow
## parent.env(parent.env(environment(m$fun))) <- baseenv() # now it is fast
system.time({
cl <- makeCluster(2)
clusterMap(cl, m$fun, 1:100)
stopCluster(cl)
})
system.time({
cl <- makeCluster(2)
clusterMap(cl, mfun, 1:100)
stopCluster(cl)
})
system.time({
cl <- makeCluster(2)
clusterMap(cl, identity, 1:100)
stopCluster(cl)
})
# #43
m <- modules::module({
export("==.foo" = equals)
equals <- function(left, right) {return(left == right)}
})
m$"==.foo"(1, 2)
m <- modules::module({
export(true = !FALSE)
})
m$true
library(modules)
modules::module({
"[" <- function(..., drop = FALSE) .Primitive("[")(..., drop = drop)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.