如何在没有参考栏的情况下获得我的Shiny App的表格结果？

Question

当我在App中获取tableOutput（）时，它带有referece列。这是我输出的图像：

http://i.stack.imgur.com/5wt2h.png

如何摆脱这种情况？

以下是我的代码的这一部分：

   #server

    dados3 <- eventReactive (input$estado, {subset(States_Cities_Premiums, States_Cities_Premiums[,1] %in% input$estado)})

    output$dados3 <- renderTable({

    subset(dados3(), dados3()[,2] %in% input$lista)[,c(2,3)]

   })

   #ui

     br(),
     tableOutput("dados3"),
     br(),

非常感谢任何帮助！

干杯！

Answer 1

这是解决方案：

#server

    dados3

 <- eventReactive (input$estado, {subset(States_Cities_Premiums, States_Cities_Premiums[,1] %in% input$estado)})

    output$dados3 <- renderTable({

    subset(dados3(), dados3()[,2] %in% input$lista)[,c(2,3)]

   }, include.rownames=FALSE)

   #ui

     br(),
     tableOutput("dados3"),
     br(),