Shiny中的observeEvent函数用于在特定事件发生时执行指定的操作。下面是一个示例，展示了如何在不同的操作上使用observeEvent。

library(shiny)

ui <- fluidPage(
  textInput("input_text", "输入文本"),
  actionButton("submit_button", "提交"),
  numericInput("input_number", "输入数字", 0),
  checkboxInput("input_checkbox", "选择框"),
  radioButtons("input_radio", "单选按钮", choices = c("选项1", "选项2", "选项3")),
  
  textOutput("output_text"),
  verbatimTextOutput("output_number"),
  verbatimTextOutput("output_checkbox"),
  verbatimTextOutput("output_radio")
)

server <- function(input, output) {
  observeEvent(input$submit_button, {
    output$output_text <- renderText({
      input$input_text
    })
  })
  
  observeEvent(input$input_number, {
    output$output_number <- renderPrint({
      input$input_number
    })
  })

  observeEvent(input$input_checkbox, {
    output$output_checkbox <- renderPrint({
      input$input_checkbox
    })
  })
  
  observeEvent(input$input_radio, {
    output$output_radio <- renderPrint({
      input$input_radio
    })
  })
}

shinyApp(ui, server)

在上面的示例中，我们创建了一个包含文本输入、按钮、数字输入、复选框和单选按钮等不同操作的Shiny应用程序。然后，在server函数中使用observeEvent来在不同操作上监听事件。

例如，当点击"提交"按钮时，observeEvent(input$submit_button, {...})将触发对应的操作，这里是将文本输入框中的文本输出到output_text。类似地，我们使用observeEvent来监听数字输入、复选框和单选按钮的变化，并相应地更新输出。

这样，当你在应用程序中进行不同操作时，相应的输出将被更新并显示在界面上。