如何根据R中的特定输入以数字形式显示所显示结果的数量？ 库（闪亮） 用户界面

用户界面中需要额外的输出，例如

textOutput

<代码>可渲染仅处理表格和类似表格的结构。如果你想在表格下面写点什么，你必须在表格后面加一行文字。用Excel做过吗？然后你知道你还必须处理文本溢出，跨单元格，可能是边界等等。这打破了在表格支架中有表格数据和随机非表格数据的想法

然后你需要给它分配一些输出。理想情况下，

nrow（statefilter）

，但您不能这样做，因为它不在可渲染的

范围之外定义。我们不准备在表中准备数据，然后以某种方式将其分配给其他作用域可以找到的变量，而是将任务分为两个不同的部分：1）准备（子集）数据，2）格式化数据以供显示。目前，您正在
renderable
中执行这两项操作。这本身是好的，它只是使它更难进一步发展。因此，要在
renderable
之外执行第1部分，您必须在被动上下文中执行，因为它使用被动变量作为输入（
input$Status
）

filtered要在哪里输出结果数？如何定义结果的数量？您尝试了什么？我希望输出显示在输入框下方。结果可以由inout数据上过滤的行数定义。我试过nrow或count.fields。但所有这些都是代码中的错误。
library(shiny)

ui <- fluidPage(

titlePanel("BOILER MASTER DATA LIST"),
sidebarLayout(

sidebarPanel(
selectizeInput("Status", "Select a Status", choices = NULL)),

mainPanel(
tableOutput("BOILERDATA")),))

server <- function(input, output, session){(

updateSelectizeInput(session,"Status", choices = RawData$Status, server = TRUE)

output$BOILERDATA <- renderTable({statefilter <- subset(RawData, RawData$Status == input$Status, drop = TRUE)})}

shinyApp(ui = ui, server = server)

filtered <- reactive({
  req(length(input$Status) == 0)
  subset(RawData, RawData$Status == input$Status, drop = TRUE) 
})
output$BOILERDATA <- renderTable( filtered() )
output$rows <- renderText( nrow(filtered() )