Shiny 反应值-我做错了什么

该应用程序旨在在单击“操作”按钮时显示“修改”。但是我一直得到一个总结的错误

summarized <- data.frame(id = 1:20, group = letters[1:4], TY_COMP = runif(20), LY_COMP = runif(20))

    library(shiny)

    ui <- fluidPage(
      verbatimTextOutput("text"),
      actionButton("btn", "Show the summarized")
    )

    server <- function(input, output){
              summarized <- reactive({summarized})
                observeEvent(input$btn,{ 
        summarized_mod <-summarized()$TY_COMP / summarized()$LY_COMP-1 } 
               })

      output$text <- renderPrint(summarized_mod())
    }

    shinyApp(ui, server)

---

summated
dat首先，你对两件不同的事情使用相同的名称（
summated
），这很奇怪。从这个线程中选取一个例子：好的，但不要这样做。。。其次，
summated\u mod
是在观测器中局部定义的向量。这既不是功能，也不是反应导体。因此，
renderPrint
中的
summated_mod（）
是双重错误的：1）
summated_mod
在这里不存在，2）即使存在，括号
（）
也没有意义。
dat <- data.frame(id = 1:20, 
                  group = letters[1:4], 
                  TY_COMP = runif(20), 
                  LY_COMP = runif(20))

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("text"),
  actionButton("btn", "Show the summarized")
)

server <- function(input, output){
  # summarized <- reactive({summarized}) useless !
  summarized_mod <- eventReactive(input$btn, {
    dat$TY_COMP / dat$LY_COMP-1
  })
  output$text <- renderPrint(summarized_mod())
}

shinyApp(ui, server)