Nothing
## ----echo = FALSE-------------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
# set back to default
options(magclass_expand_version = 2.1)
options(magclass_setMatching = FALSE)
## ----echo = TRUE--------------------------------------------------------------
library(magclass)
a <- b <- maxample("pop")
getItems(b, dim = 1)[1] <- "AAA"
## ----echo = TRUE--------------------------------------------------------------
options(magclass_expand_version = 2.1) # default setting for magclass >= 5.0
head(a * b)
## ----echo = TRUE--------------------------------------------------------------
options(magclass_expand_version = 2.1) # default setting for magclass >= 5.0
a <- b <- maxample("pop")
getSets(a)[1] <- "import"
getSets(b)[1] <- "export"
options(magclass_setMatching = FALSE)
head(a * b)
## ----echo = TRUE--------------------------------------------------------------
options(magclass_setMatching = TRUE)
head(a * b)
## ----echo = TRUE--------------------------------------------------------------
options(magclass_expand_version = 2.1) # default setting for magclass >= 5.0
a <- b <- maxample("pop")
getItems(a, dim = 1)[1] <- "AAA"
getItems(b, dim = 1)[1] <- "BBB"
options(magclass_setMatching = FALSE)
head(a * b)
## ----echo = TRUE, error=TRUE--------------------------------------------------
try({
options(magclass_setMatching = TRUE)
head(a * b)
})
## ----echo = FALSE-------------------------------------------------------------
# set back to default
options(magclass_expand_version = 2.1)
options(magclass_setMatching = FALSE)
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.