如果你不需要滚动条，我认为你不能（或者应该）轻易地强制一个滚动条，但是上面的代码对我来说很好，它在页面初始化时显示一个滚动条。也许问题出在数据或其他方面。
这里有一个最小的例子，在页面加载时有一个水平滚动条

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

试试这个：

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

我也会这样做：

datasetInput1 <- reactive({
      infile <- input$file1
      if(is.null(infile))
        return(NULL) 
      else
        m <- read.csv(infile$datapath, header = input$header)
        return ( DT::datatable(m, extensions = 'Scroller', options = list(deferRender = F, dom = 't',
                                                                      columnDefs = list(list(className = 'dt-center',
                                                                                             targets = 5)),
                                                                     scrollY = 300, scroller = TRUE, scrollX = T,
                                                                     pageLength = 5))
               )
    })

对于初学者来说，在服务器端使用数据表可能很难。你可以在服务器端实现数据表，几乎没有任何麻烦，你应该考虑使用DataTables Quick。我发现这些可以减轻我的日常工作，我想这里的每个程序员都会想要的。**注意：**不要在生产环境中使用，因为它可能会以某种方式损害您的数据。