尝试将输入值用作我下载的数据框的名称时出错

Question

我正在尝试制作一个能够转换货币的简单金融计算器。没有Quantmod，我无法继续下载新信息。但是，当我尝试将其功能应用到闪闪发光时，存在一些我无法解决的问题。

library(shiny)
library(quantmod)

ui <- fluidPage(
  sidebarPanel(
    textInput("curr", "Currency"),
    actionButton("go", "1 dollar equals to:")
  ),
  mainPanel(
    verbatimTextOutput("res")
  )
)

server <- function(input, output, session) {
  result <- reactiveValues(data = NULL)

  observeEvent(input$go, {
    getSymbols(input$curr)
    result$data <- data.frame(`input$curr`)
    wanted <- result$data[nrow(result$data), ncol(result$data)]
   })


  output$res <- renderText({
    paste(wanted)
  })
}

shinyApp(ui, server)

当我尝试在其他脚本中执行相同的操作时，如果没有闪亮的输入，则效果很好。 当我将BRL = X用作输入$ curr时，它应按以下所示的脚本运行。

getSymbols("BRL=X")

data <- data.frame(`BRL=X`)

data[nrow(data),ncol(data)]

但是出现的错误消息表明未找到对象“ input $ curr”。