#shiny
#блестящий
Вопрос:
Я пытаюсь создать блестящее приложение, которое выводит таблицу ANOVA на основе динамической числовой переменной, вводимой из iris
набора данных.
Это та часть, где я борюсь: aov.model <- aov(input$varNames ~ iris$Species, data = iris)
Вышеуказанное работает, если я заменяю часть динамического ввода на любое из указанных имен переменных:
aov.model <- aov(Sepal.Length ~ Species, data = iris)
Как мне следует обращаться с частью динамического ввода input$varNames
?
Вот полностью рабочий код:
ui <- fluidPage(
tabsetPanel(
tabPanel("ANOVA",
uiOutput("varNames"),
verbatimTextOutput("anovaTable")
)
)
)
# @
server <- function(input, output) {
output$varNames <- renderUI({
selectizeInput("varNames2",
"Variables: ",
choices = names(iris[, -5])
)
})
output$anovaTable <- renderPrint({
aov.model <- aov(input$varNames ~ iris$Species, data = iris) # Stuck here
print(aov.model)
br()
br()
print(summary(aov.model))
cat("Coefficients"); cat("n")
print(aov.model$coefficients)
})
}
shinyApp(ui, server)