0

ShinyDashBoard 内でゲージ プロットをプロットしようとしていますが、2 つの問題が発生しています。

1) ゲージ プロットがレンダリングされない

2) ダッシュボードの ValueBox が何らかの形で破損します。

以下は、この問題を再現するコードです。

library(shiny)
library(shinydashboard)
#library(flexdashboard)


ui <-dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      valueBoxOutput("vbox1"),
      column(6,box(plotOutput("plt1"),width=12,title="Gauge Graph",background ="green") ),
      column(6,box(plotOutput("plt2"),width=12,title="Graph2",background="yellow") )
    ),
    fluidRow( actionButton("plot","plot") )
  )
)

server <- shinyServer(function(input, output, session) {
  observeEvent(input$plot,{
    output$plt1 <- renderPlot({
      flexdashboard::gauge(56, min = 0, max = 100, symbol = '%', label = paste("Test Label"),gaugeSectors(
        success = c(100, 6), warning = c(5,1), danger = c(0, 1), colors = c("#CC6699")
      ))

    })
    output$plt2 <- renderPlot({plot(runif(100),runif(100))})
  })

  output$vbox1 <- renderValueBox({
    valueBox(
      "Gender",
      input$count,
      icon = icon("users")
    )
  })
})

shinyApp(ui = ui, server = server)

また、ライブラリを使用して生成されたプロットplotly:-( この問題を解決するための助けをいただければ幸いです。よろしくお願いします。

4

3 に答える 3

1

私は同じ問題に遭遇しました！

これは UI の問題です。サーバー出力を呼び出すときにコードを見てください。flexdashboard::gaugeOutput("plt1")の代わりに使用する必要がありplotlyOutputます。これで問題は解決するはずです。

参照: https://cran.r-project.org/web/packages/flexdashboard/flexdashboard.pdf (つまり、flexdashboard パッケージ ページのみ)。

于 2016-08-08T16:11:34.110 に答える
-1

1.UIで

column(6,box(gaugeOutput("plt1"),width=12,title="Gauge Graph",background ="green") )

サーバー内

output$plt1 <- renderGauge({
      flexdashboard::gauge(56, min = 0, max = 100, symbol = '%', label = paste("Test Label"),gaugeSectors(
        success = c(100, 6), warning = c(5,1), danger = c(0, 1), colors = c("#CC6699")
      ))
    })

2.

output$vbox1 <- renderValueBox({
    shinydashboard::valueBox(
      "Gender",
      input$count,
      icon = icon("users")
    )
  })
于 2016-11-04T06:04:28.420 に答える