Question

我想制作一个闪亮的应用程序，以根据参数输入显示一个表

  tabla4<- reactive({
    tabla<-activos_vabs[activos_vabs$Comunidades==input$com4 & activos_vabs$Sexo==input$sexo4 & activos_vabs$Edad==input$edad4, ];
   return(tabla);
 })

我有这个，它什么也没显示，但是如果我给出值，而不是输入的话，

  tabla4<- reactive({
    tabla<-activos_vabs[activos_vabs$Comunidades=="Total Nacional" & activos_vabs$Sexo=="Ambos sexos" & activos_vabs$Edad=="Total", ];
   return(tabla);
   return(prueba[5])
 })

我有一张大桌子，我只想打印一个零件。

Answer 1

下面的示例闪亮代码将满足您的要求。

library(shiny)
ui <- fluidPage(selectInput(inputId = "selectedName", label = "Select a name", 
                            choices = levels(data$name)),
                tableOutput("table")
)

server <- function(input, output, session){
  df <- reactive({data.frame(data[data$name == input$selectedName,])
  })
  output$table <- renderTable( df() )
}
shinyApp(ui = ui, server = server)

代码中使用的数据如下。

dput(data)
structure(list(name = structure(c(1L, 2L, 6L, 5L, 4L, 3L, 1L, 
1L, 1L, 2L, 2L, 2L, 5L, 5L, 5L), .Label = c("aaa", "ddd", "eee", 
"ggg", "ppp", "yyy"), class = "factor"), test = c(14, 88, 36, 
25, 56, 34, 30, 75, 44, 19, 83, 49, 87, 62, 50), result = c(25, 
44, 39, 88, 10, 44, 58, 22, 94, 56, 73, 15, 84, 223, 45)), .Names = c("name", 
"test", "result"), row.names = c(NA, -15L), class = "data.frame")

数据框的过滤取决于我们在selectInput下拉列表中所做的选择。

活性表闪亮

1 个答案: