Cách hiển thị thanh cuộn ngang trong DT :: datatable

Question

Sử dụng gói RDT sáng bóng, tôi đang tạo một số bảng nhất định. Số lượng cột thay đổi theo đầu vào của người dùng & không cố định. Tôi đã bao gồm đoạn mã sau để bao gồm một thanh cuộn ngang để khi số lượng cột lớn, người dùng có thể cuộn qua các cột không hiển thị trực tiếp.

server.R:

output$results <- DT::renderDataTable({ 
    DT::datatable(data = datasetInput(), 
        options = list(scrollX = TRUE,...) 
       ) 
    }) 
<code reduced for brevity> 

Sử dụng đoạn mã trên, các thanh cuộn ngang không nhìn thấy được lúc đầu nhưng xuất hiện khi tôi bấm vào liên tiếp và nhấn mũi tên bên phải trên bàn phím của tôi. Có cách nào thanh cuộn sẽ hiển thị ngay khi bảng được kích hoạt, cho dù tôi có bao nhiêu cột và tôi có thể kéo thanh cuộn bằng con trỏ chuột không?

Cập nhật:

Tôi đã thử các mã trong câu trả lời dưới đây và đây là những gì tôi nhìn thấy - không có thanh cuộn ngang.

Answer 1

Tôi không nghĩ rằng bạn có thể (hoặc phải) buộc một thanh cuộn dễ dàng nếu bạn không cần một, nhưng các mã trên hoạt động tốt đối với tôi, nó cho thấy một thanh cuộn khi trang khởi. Có lẽ vấn đề là với dữ liệu hoặc cái gì khác.

Dưới đây là một ví dụ rất nhỏ mà có một thanh cuộn ngang trên tải trang

runApp(shinyApp(
    ui = fluidPage(
    DT::dataTableOutput("results", width = 300) 
), 
    server = function(input, output, session) { 
    output$results <- DT::renderDataTable(
     mtcars, 
     options = list(scrollX = TRUE) 
    ) 
    } 
)) 

Answer 2

Hãy thử điều này:

DT::datatable(sta, options = list(
    pageLength=50, scrollX='400px'), filter = 'top')