Question

我正在处理一个非常复杂的闪亮应用程序，其中我想在服务器功能内创建一个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)

不显示情节...

您知道为什么以及如何处理此问题吗？

Answer 1

我不知道您为什么需要在那里%>% 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)

通过HTML函数无法正常工作

1 个答案: