如何从r闪亮的quandl中动态提取数据？

Question

我正在使用以下代码，但它给了我错误。

textInput(inputId = "metadata",label = "Please select the company you want information about")

observe({
  if(is.null(input$metadata))
    return(NULL)
     Quandl.api_key("qZAzm6zea4nVK69ztzDJ")
     company=input$metadata
     dat=paste("NSE/",company,sep="")
     #b="NSE/TCS"
     data=Quandl(dat,type = "ts")
})