Plotly 不适用于 HTML 函数

Plotly does not work in shiny with HTML function

我正在处理一个 quite 复杂的闪亮应用程序,我想在其中创建一个 UI 服务器函数内的输出。 UI 并不是那么容易,它取决于在服务器端创建的许多项目,因此我创建它是连接 UI 的 HTML 部分。一切正常,直到我遇到 plotly 图表。

我创建了一个更简单的应用程序版本,以便更容易理解我的问题。

通常我会这样做:

library("shiny")
library("plotly")
library("dplyr")

ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
        ),

        mainPanel(
            plotlyOutput("distPlot1"),
            plotOutput("distPlot2")
        )
    )
)

server <- function(input, output) {

    output$distPlot1 <- renderPlotly({

        x <- faithful[, 2]

        plot_ly(x = x, type = "histogram")
    })

    output$distPlot2 <- renderPlot({

        x <- faithful[, 2]

        hist(x)
    })

}

shinyApp(ui = ui, server = server)

获得这个:

但是当我像这里一样开始在服务器端创建 ui 时(在 ui 中编辑了更多 div 的部分):

library("shiny")
library("plotly")
library("dplyr")

ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
        ),

        mainPanel(
            htmlOutput("ui1"),
            uiOutput("ui2")
        )
    )
)

server <- function(input, output) {

    output$distPlot1 <- renderPlotly({

        x <- faithful[, 2]

        plot_ly(x = x, type = "histogram")
    })

    output$distPlot2 <- renderPlot({

        x <- faithful[, 2]

        hist(x)
    })

    output$ui1 <- renderUI({

        show <- h1("lfkhg")
        show <- paste0(show, plotlyOutput("distPlot1") %>% as.character())

        HTML(show)

    })

    output$ui2 <- renderUI({

        show <- h1("lfkhg")
        show <- paste0(show, plotOutput("distPlot2") %>% as.character())

        HTML(show)

    })

}

# Run the application
shinyApp(ui = ui, server = server)

plotly剧情没有出现...

你知道为什么以及如何处理这个问题吗?

我不知道你为什么需要 %>% HTML() 在那里,因为它对我来说没有它。另外,如果你想在 renderUI 中添加更多的东西,那么只需使用 tagList 并将它们组合在一起,在这里我将根据你的评论添加 h1

library("shiny")
library("plotly")
library("dplyr")

ui <- fluidPage(
  sidebarLayout(sidebarPanel(),
    mainPanel(
      uiOutput("ui1"),
      uiOutput("ui2")
    )
  )
)

server <- function(input, output) {

  output$distPlot1 <- renderPlotly({
    x <- faithful[, 2]
    plot_ly(x = x, type = "histogram")
  })

  output$distPlot2 <- renderPlot({
    x <- faithful[, 2]
    hist(x)
  })

  output$ui1 <- renderUI({
    tagList(h1("lfkhg"),plotlyOutput("distPlot1"))
  })

  output$ui2 <- renderUI({
    plotOutput("distPlot2")
  })

}

# Run the application
shinyApp(ui = ui, server = server)