私は光沢のあるインターフェースを持っており、DT::dataTableOutput
とDT::renderDataTable
をよく使用します。ただし、フォントとテーブルを小さくするなど、データテーブルのサイズを縮小する方法があるのではないかと思います。どうすればよいですか?
次のコードがあるとしましょう。
foo <- function(){
shinyApp(
ui = fluidPage(
DT::dataTableOutput("table")
),
server <- function(input, output) {
x <- data.frame(1:5, 2:6)
output$table <- DT::renderDataTable(x)
}
)
}
どのオプションまたはタグを追加する必要がありますか?
style
のdiv
パラメータにwidth: 75%
を追加してみてください。
div(DT::dataTableOutput("table"), style = "font-size: 75%; width: 75%")
div(DT::dataTableOutput("table"), style = "font-size:50%")
小さいフォントの場合(UI内)