r - 闪亮的应用程序中的 Rblpapi 订阅功能

Question

我正在尝试开发一个简单的闪亮应用程序来打印最新的欧元价格

library(shiny)

ui <- basicPage(

  verbatimTextOutput(outputId = "roll", placeholder = TRUE)

)

server <- function(input, output) {

  Rblpapi::blpConnect()
  last_print <- reactiveVal(value = 1)

  Rblpapi::subscribe(securities = "EUR Curncy", fields = "LAST_PRICE", fun = function(x) last_print(x))

  output$roll <- renderPrint({
    last_print()$data$LAST_PRICE
  })
} 

shinyApp(ui = ui, server = server)

如果您无权访问 Rblpapi，请将 subscribe 视为创建数据订阅的函数，并fun在每次更新数据时调用。当您运行应用程序时，什么也没有发生，但如果您调试它，您会看到last_print正在更新。我知道我搞砸了 Shiny 中的反应范式，但我就是不知道该使用什么模式。任何替代Rblpapi::subscribe没有彭博的人能够测试和帮助的存根函数也将不胜感激。

标签： rshinyrblpapi