在Shiny中，是否可以提取与给定值不同的输入值(例如，将百分比转换为小数)？

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("percentage", "输入百分比", value = 50, min = 0, max = 100),
      actionButton("convert", "转换为小数")
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$convert, {
    if (input$percentage != 50) {
      decimal <- input$percentage / 100
      output$result <- renderPrint({
        paste("转换后的小数为:", decimal)
      })
    } else {
      output$result <- renderPrint({
        "输入值与给定值相同"
      })
    }
  })
}

shinyApp(ui, server)