title: How to display two gvis gauge meters side by side using Shiny R
body: <p>I am working on shiny app where in I'm trying to display the baseline and model accuracy using <code>gvisGauge</code>.</p>
  
  <p>I have been successful in displaying them in separate tabpanels and also in the same tabpanel one below the other.</p>
  
  <p>But I want to show them side by side i.e in horizontal alignment in the same tab. How can I achieve this? Tried searching for options, but couldn't get any.</p>
  
  <p>As of now, my sample code is as below</p>
  
  <p>ui.R</p>
  
  <pre><code>library(shiny)
  library(googleVis)
  
  shinyUI(fluidPage(
    titlePanel('Guage'),
    sidebarLayout(
      sidebarPanel(
        numericInput('n1', 'Enter your Base Accuracy', 40, 0.5, 100),
  
  
        numericInput('n2', 'Enter your Model Accuracy', 40, 0.5, 100)
      ),
      mainPanel(
        tabsetPanel(
        tabPanel("Accuracy Guage",htmlOutput("view1"),htmlOutput("view2"))
      )
    )
  )))
  </code></pre>
  
  <p>server.R</p>
  
  <pre><code>library(shiny)
  library(googleVis)
  
  shinyServer(function(input, output) {
  
    output$view1 &lt;- renderGvis({
      df1 &lt;- data.frame(Label = "Base Accuracy", Value = input$n1)
      gvisGauge(df1,
                options=list(min=0, max=100, greenFrom=90,
                             greenTo=100, yellowFrom=75, yellowTo=89.99,
                             redFrom=0, redTo=74.99, width=300, height=300));  
  
  })
  
  output$view2 &lt;- renderGvis({
    df2 &lt;- data.frame(Label = "Model Accuracy", Value = input$n2)
    gvisGauge(df2,
              options=list(min=0, max=100, greenFrom=90,
                           greenTo=100, yellowFrom=75, yellowTo=89.99,
                           redFrom=0, redTo=74.99, width=300, height=300));  
  
  })
  
  
  })
  </code></pre>