如何将查询字符串从shiny中的url转换为重音字符串

library(shiny)

ui <- fluidPage(
  textInput("url", "URL", placeholder = "Enter URL"),
  actionButton("convert", "Convert"),
  verbatimTextOutput("result")
)

server <- function(input, output) {
  observeEvent(input$convert, {
    url <- input$url
    query_string <- tools::URLencode(parseQueryString(url)$query)
    output$result <- renderPrint(query_string)
  })
}

shinyApp(ui, server)