r - 我们可以在同一个面板中用 Shiny 打印或绘图吗？

Question

我想打电话

 output$IPLMatchPlot <- renderPlot({ 

 f(x)

}) 或

 output$IPLMatchPrint <- renderPrint({
   f(x)
 })

函数 f(x) 返回绘图或数据框。

我可以在 server.R 中单独执行此操作，但希望显示为图表或数据框的文本。有关如何执行此操作的任何建议

Answer 1

这可以通过使用 renderUI() 来处理，renderUI() 检查它获得的输出类型并呈现适当的输出。

在 UI 部分，您可以将 uiOutput 放置在您希望绘图或打印显示的位置。

uiOutput("Plotorprint")

然后在服务器中，您将使用如下内容定义 uiOutput:

  output$Plotorprint <- renderUI({
    if (is.data.frame(f(x))) { # Check if output of f(x) is data.frame
      verbatimTextOutput("ISPLMatchPrint") # If so, create a print
    } else {                      # If not,
      plotOutput("ISPLMatchPlot") # create a plot
    }
  })

并且您还将在您的服务器中保留您在问题中发布的定义。

然后这应该检查 f(x) 得到什么输出，并呈现适当的输出。