Question

我想知道，如果可以在闪亮的服务器模块中使用省略号（...）。我认为问题在于我无法在服务器模块中调用反应值（通常使用括号 - value（））。

尝试使省略号反应...（）也没有成功。任何人都知道如何解决这个问题？

提前致谢！

renderPlotsUI = function(id) {
  ns = NS(id)
  tagList(plotOutput(ns("plot")))
}

renderPlots = function(input, output, session, FUN, ...) {
  output$plot = renderPlot({FUN(...)})
}

# APP BEGINS
ui = fluidPage(
  renderPlotsUI("plot1")
) 
server = function(input, output, session) {
  callModule(renderPlots, "plot1", FUN=plot, x = reactive(mtcars))
}

shinyApp(ui, server)

Answer 1

您可以将省略号转换为包含list的列表，然后使用lapply和do.call来调用您的函数。我稍微改变了您的示例，以展示如何将输入从ui传递给函数。

library(shiny)

renderPlotsUI = function(id) {
  ns = NS(id)
  tagList(plotOutput(ns("plot")))
}

renderPlots = function(input, output, session, FUN, ...) {
  output$plot = renderPlot({
    args_evaluated <- lapply(list(...), function(x){x()})      
    do.call(FUN, args_evaluated)
  })
}

shinyApp(
  fluidPage(
    sliderInput("n", "n", 1, 10, 5),
    renderPlotsUI("plot1")
  ) , 
  function(input, output, session) {
    callModule(renderPlots, "plot1", FUN = plot, x = reactive({1:input$n}))
  }
)

在闪亮模块中使用省略号

1 个答案: