我正在嘗試創建一個應用程式，如果您在下拉選單上選擇一個選項，則會顯示一個表（稱為 data_2022），如果您在下拉選單上選擇不同的選項，則會顯示一個不同的表（稱為 roty_2022）。這是我的代碼：
award_types <- c("MVP", "ROTY")
library(shiny)
ui <- pageWithSidebar(
headerPanel("NBA Awards Tracker"),
sidebarPanel(selectInput("Awards", "Choose an Award", choices = award_types, selected = "MVP")),
mainPanel(dataTableOutput("Table")
))
server <- function(input, output)
{reactive({
if(input$Awards == "MVP")
output$Table <- renderDataTable(data_2022)
if(input$Awards == "ROTY")
output$Table <- renderDataTable(roty_2022)})
}
任何幫助將不勝感激！
uj5u.com熱心網友回復：
您可以嘗試以下方法。您可以包含一個reactive運算式，該運算式將根據您的input$Awards. 然后，您只需要一個陳述句即可output$Table呈現適當的資料。
server <- function(input, output) {
output$Table <- renderDataTable(my_data())
my_data <- reactive({
if(input$Awards == "MVP")
return(data_2022)
if(input$Awards == "ROTY")
return(roty_2022)
})
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/351289.html
上一篇：將多行合并為每組一行
下一篇：回傳向量元素乘積函式的函式