title: Reduce font size in renderDataTable in a shiny presentation
body: <p>I'm using a shiny presentation in order to display two tables.
  Here's my code:</p>
  
  <pre><code>tabsetPanel(
    tabPanel('iris',
             renderDataTable(iris,options = 
  list(lengthMenu = c(5, 10), pageLength = 5, scrollX = TRUE), escape = 
  FALSE)), 
    tabPanel('mtcars',
             renderDataTable(mtcars, options = list(lengthMenu 
  = c(5, 10), pageLength = 5, scrollX = TRUE), escape = FALSE))
  )
  </code></pre>
  
  <p>I would like to shrink the size of the tables. I tried adding div in the following way:</p>
  
  <pre><code>div(renderDataTable(mtcars, options = list(lengthMenu 
  = c(5, 10), pageLength = 5, scrollX = TRUE), escape = FALSE), style = "font-
  size:50% ")
  </code></pre>
  
  <p>But this is not working.</p>
  
  <p>I also tried doing this:</p>
  
  <pre><code>mainPanel( 
    tabsetPanel(id='BLMS', 
                tabPanel("iris", fluidRow(div(dataTableOutput(outputId="iris"),  
  style = "font-size:50%"))), 
                tabPanel("mtcars", 
  fluidRow(div(dataTableOutput(outputId="mtcars"),  style = "font-size:50%")))
                )
    )  
  
  output$iris&lt;- renderDataTable({iris}, options = list(lengthMenu = c(5, 10), 
  pageLength = 5, scrollX = TRUE))
  
  output$mtcars&lt;- renderDataTable({mtcars},options = list(lengthMenu = c(5, 
  10), pageLength = 5, scrollX = TRUE))
  </code></pre>
  
  <p>But It's displaying a table cut in half in the presentation.</p>