r - Shiny - 带有 renderUI 的绘图不显示为 Shiny

Question

我是 Shiny 的新手，我在 Shiny 方面遇到了问题。我有一个情节，但情节没有以 Shiny 的形式显示。并且没有消息错误。这是代码...

用户界面

library(shiny)
ui = fluidPage(
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(

    ),
    mainPanel(

     uiOutput("scatter")

               ))
  )

服务器

library(shiny)

server = function(input, output) {

  output$scatter <- renderUI({
    datax <- matrix(c(1,2,3,4,5,6),6,1)
    datay <- matrix(c(1,7,6,4,5,3),6,1)
    titleplot<-"title"
    summary <- "testing text"

    pl <- plot(datax, datay, main = titleplot, xlab = "input$axis1", ylab = "input$axis2", pch=18, col="blue") 

    list(
    pl,
    summary
    )


    })

}

Answer 1

其实你也可以使用uiOutput，它有时非常有用，因为你可以从服务器端创建一个用户界面。这是解决方案:

library(shiny)

ui = fluidPage(
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(
      uiOutput("scatter")
    ))
)


server = function(input, output) {

  output$scatter <- renderUI({
    datax <- matrix(c(1,2,3,4,5,6),6,1)
    datay <- matrix(c(1,7,6,4,5,3),6,1)
    titleplot<-"title"
    summary <- "testing text"


    output$plot_test <- renderPlot({
      pl <- plot(datax, datay, main = titleplot, xlab = "input$axis1", ylab = "input$axis2", pch=18, col="blue") 
    })

    plotOutput("plot_test")

  })

}

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