Как динамически извлечь данные из Quandl в R блестящий?

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")
})