title: Shiny: Gauge from flexdashboard in Shiny App
body: <p>Is it possible to embed the gauge from <code>flexdashboard</code> (picture below) in <code>Shiny</code> App (<code>shinydashboard</code> or <code>shiny</code>)?</p>
  
  <p><a href="https://i.stack.imgur.com/WH9Qc.jpg" rel="noreferrer"><img src="https://i.stack.imgur.com/WH9Qc.jpg" alt="enter image description here"></a></p>
  
  <p>The example code within a <code>Shiny flexdashboard</code> from the <code>flexdashboard</code> <a href="http://rmarkdown.rstudio.com/flexdashboard/using.html#components" rel="noreferrer">website</a>:</p>
  
  <pre><code>```{r}
  renderGauge({
    rate &lt;- computeContactRate(input$region)
    gauge(rate, min = 0, max = 100, symbol = '%', gaugeSectors(
      success = c(80, 100), warning = c(40, 79), danger = c(0, 39)
    ))
  })
  ```
  </code></pre>
  
  <p><strong>Here is my failed attempt:</strong></p>
  
  <pre><code>library(shiny)
  library(shinydashboard)
  #library(flexdashboard)
  
  
  ui &lt;-dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      column(6,box(flexdashboard::gaugeOutput("plt1"),width=12,title="Gauge Graph",background ="green"))))
  
  server &lt;- shinyServer(function(input, output, session) {
  
    output$plt1 &lt;- flexdashboard::renderGauge({
        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")
        ))
  
      })
  })
  
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>Thanks for any tips!</p>