这对我很有效：

library(shiny)

ui <- fluidPage(
  tags$head(
    # Some css to style the div to make it more easily visible
    tags$style(
      '#outDiv{
        height:150px;
        overflow-y:scroll;
        border: 1px solid black;
        border-radius:15px;
        padding:15px;
      }
      '
    ),
    # Custom shiny to javascript binding
    # scrolls "outDiv" to bottom once called
    tags$script(
      '
      Shiny.addCustomMessageHandler("scrollCallback",
        function(color) {
          var objDiv = document.getElementById("outDiv");
          objDiv.scrollTop = objDiv.scrollHeight;
        }
      );'
    )
  ),
  sidebarLayout(
    sidebarPanel(
      actionButton('go','Start Printing')
    ),
    mainPanel(
      div(id='outDiv',
        htmlOutput('out')
      )
      # Text output

    )
  )
)

server <- function(input, output, session) {
  autoInvalidate <- reactiveTimer(250, session) # Timer function

  ptm      <- proc.time() # Start time
  startTxt <- ''          # Start string to show on screen

  # Function to print new line when reactiveTimer invalidates
  startPrint <- function(){
    output$out <- renderText({ 
      ctm <- proc.time() - ptm
      autoInvalidate() # Start invalidating function every n miliseconds

      # Format string to print
      curr.font <- sample(colours(distinct=T), 1) 
      curr.txt  <- sprintf('<font color="%s"> %4.2f</font> seconds from start <br>', curr.font, ctm[[3]]) 
      startTxt  <<- paste(startTxt, curr.txt, collapse = '')

      # Call custom javascript to scroll window
      session$sendCustomMessage(type = "scrollCallback", 1)

      return(startTxt)
    })
  }

  observeEvent(input$go,{
    startPrint()
  })
}

runApp(shinyApp(ui,server))

这里的技巧是，每次更新文本输出时，我都调用Javascript函数来滚动div。让我知道这个答案是否令人费解。

下面是一个可接受答案的最小可重复示例，以更好地突出实现该方法绝对必要的内容。

library(shiny)

ui = fluidPage(
  tags$head(
    tags$script(
      '
      Shiny.addCustomMessageHandler("scrollCallback",
        function(foo) {
          var objDiv = document.getElementById("outDiv");
          objDiv.scrollTop = objDiv.scrollHeight;
        }
      );'
    )
  ),
  fluidPage(
    mainPanel(
      div(id='outDiv',style='height:150px;overflow-y:scroll;',
          uiOutput('out')
      )
    )
  )
)

server = function(input, output, session) {
  
  new_text = ''
  autoInvalidate <- reactiveTimer(250, session)
  
  observeEvent(autoInvalidate(),{
    new_text <<- paste(new_text,'<br>',sample(letters,1))
    output$out = renderUI({HTML(new_text)})
    session$sendCustomMessage(type='scrollCallback', 'foo')
  })

}

runApp(shinyApp(ui,server))