library(teal)
library(teal.modules.general)
data <- teal_data()
data <- within(data, {
require(nestcolor)
USArrests <- USArrests
iris <- iris
})
app <- init(
data = data,
modules = modules(
tm_a_pca(
"PCA",
dat = list(
data_extract_spec(
dataname = "USArrests",
select = select_spec(
choices = variable_choices(
data = data[["USArrests"]], c("Murder", "Assault", "UrbanPop", "Rape")
),
selected = c("Murder", "Assault"),
multiple = TRUE
),
filter = NULL
),
data_extract_spec(
dataname = "iris",
select = select_spec(
choices = variable_choices(
data = data[["iris"]], function(data) names(Filter(is.numeric, data))
),
selected = NULL,
multiple = TRUE
),
filter = NULL
)
)
)
)
)
if (interactive()) {
shinyApp(app$ui, app$server)
}
What happened?
Even in modules that treat datasets independently,
teal.transformattempts to join them and fails if no keys are provided.modified example app
sessionInfo()
Relevant log output
Code of Conduct
Contribution Guidelines
Security Policy