光沢のあるプレゼンテーションのrenderDataTableのフォントサイズを小さくする

Question

私は光沢のあるプレゼンテーションを使って2つのテーブルを表示しています。私は、テーブルのサイズを縮小したい

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)) 
) 

： はここに私のコードです。 divを次のように追加しようとしました：

div(renderDataTable(mtcars, options = list(lengthMenu 
= c(5, 10), pageLength = 5, scrollX = TRUE), escape = FALSE), style = "font- 
size:50% ") 

これは機能しません。

私も、このやってみました：

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<- renderDataTable({iris}, options = list(lengthMenu = c(5, 10), 
pageLength = 5, scrollX = TRUE)) 

output$mtcars<- renderDataTable({mtcars},options = list(lengthMenu = c(5, 
10), pageLength = 5, scrollX = TRUE)) 

をしかし、それはプレゼンテーションで半分にカットテーブルを表示しています。あなたは、テーブルのサイズを小さくしますが、さらに、フォントサイズを小さくしたい場合width < 12でカラムに入れたい場合は、shinyjs

Answer 1

は:: inlineCSSに便利です：

library(DT) 
library(shinyjs) 
shinyApp(shinyUI(
    fluidPage(column(width=6, dataTableOutput("iris")), 
     useShinyjs(), 
     inlineCSS(list("table" = "font-size: 8px"))) 
), 

    shinyServer(function(input, output) { 
    output$iris = renderDataTable({ 
     datatable(iris,options = 
        list(lengthMenu = c(5, 10), pageLength = 5, scrollX = TRUE), escape = 
        FALSE) 
    }) 
    }) 
) 

編集：それはテーブルが含まれているあなたのdivにstyleコマンドを追加し、指摘されたとしても、働くよりよい：fluidPage(style = "font-size: 75%; width: 75%", dataTableOutput("iris")))