2017-10-12 1 views
1

이것은 R 반짝이로 작성된 데이터 테이블을위한 스크립트입니다. 플롯의 너비를 조정하여 상자 안에 플롯을 완전히 맞추려고합니다. 아래는 필자가 맞추려고하는 상자와 함께 플롯의 스크립트입니다. datatable을 사용하여 만들어진 플롯의 너비를 조정하도록 도와주세요. 또한 상자의 너비를 늘리고 싶지 않습니다. 가능한 해결책에 대한 링크가 큰 도움이 될 것입니다. 감사. 데이터 테이블에 대한R에서 DT를 사용하여 데이터 테이블의 너비 조정

스크립트 :

r3_blood = subset(patient, handling == "Blood test" & employee == "r3") 
    datatable(r3_blood, options = list(
    searching = FALSE, 
    pageLength = 5, 
    lengthMenu = c(5, 10, 15, 20) 
)) 

스크립트 상자에서 테이블에 맞게 : 이미 제안과 함께

box(title = "Case Summary", status = "primary", height = 
    "575",solidHeader = T, 
          dataTableOutput("sankey_table")) 

DataTable

+1

scrollX = T을 추가 할 수 있습니다 https://stackoverflow.com/questions/31921238/shrink-dtdatatableoutput-size – Gonzo

+0

[Shrink DT :: dataTableOutput 크기]의 가능한 복제본 (https://stackoverflow.com/questions/31921238/shrink-dtdatatableoutput-size) – Gonzo

답변

1

1) possible duplicateticket 사용할 수 div(DT::dataTableOutput("table"), style = "font-size: 75%; width: 75%")

2) 또한 당신은 당신이 관심을 가질만한 옵션

library(DT) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(title = "Basic dashboard"), 
    dashboardSidebar(), 
    dashboardBody(
    box(title = "Case Summary", width = 4,status = "primary", height = "575",solidHeader = T, dataTableOutput("Table")) 
) 
) 

server <- function(input, output, session) { 

    output$Table <- renderDataTable(
    datatable(mtcars, options = list(searching = FALSE,pageLength = 5,lengthMenu = c(5, 10, 15, 20), scrollX = T)) 
) 
} 
shinyApp(ui, server) 

enter image description here