Flexdashboard:基于下拉输入创建一个反应性数据
Flexdashboard:基于下拉输入创建一个反应性数据
提问于 2020-02-06 20:25:05
我正在尝试创建一个数据框架，其内容根据仪表板用户的输入进行更改。我设置了空数据框架，输入如下：
selectInput("ai_issue",
label = "Select Issue Area:",
choices = c("Environment",
"Human rights",
"Refugee relief"))
beta <- as.data.frame(matrix(rep(0), nrow = 3))
beta$levels = c("Environment", "Human Rights", "Refugee Relief")我希望对beta数据框架进行编码，以便如果用户从ai_issue对象的下拉列表中选择“Environment”，那么beta数据框架中的适当单元格将更改为1。有人知道如何做到这一点吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-02-07 19:07:46
此示例将multiple用于inputSelect，因此您可以指示一个或多个选项。
reactive函数将根据input选择设置数据帧变量。
这是我希望能帮助你开始的事情。如果这不是你想要的，请告诉我。
library(shiny)
beta <- data.frame(
value = c(0,0,0),
levels = c("Environment", "Human Rights", "Refugee Relief")
)
ui <- fluidPage(
fluidRow(
column(6,
selectInput("ai_issue",
label = "Select Issue Area:",
choices = beta$levels,
multiple = TRUE)
),
column(6,
tableOutput("data")
)
)
)
server = function(input, output) {
df <- reactive({
beta$value[beta$levels %in% input$ai_issue] <- 1
beta
})
output$data <- renderTable({
df()
})
}
shinyApp(ui, server)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60102966
复制相关文章
相似问题
腾讯云开发者
