刷新闪亮输出并将焦点设置到页面的所需部分

Question

我尝试实施这里提出的解决方案： 不遵循 URL 路径协议

将我的所有绘图分隔在不同的文件中。

所以基本上我有单选按钮，并根据用户选择加载不同的 html 文件：

 else if (input$chap == "4" & input$cat == "2") {
    output$uiStub <- renderUI(tagList(             # a single-output stub ui basically lets you
      fluidPage(                                  #     move the ui into the server function
        fluidRow(
          column(12,
                 includeHTML("./html/mediapar.html")
          )
        ),
        uiOutput("pageStub")                     # loaded server code should render the
      )                                           #    rest of the page to this output$
    ))
  }

我的问题是，每次刷新不同的文件（仅页面的一部分）时，页面的焦点都会丢失，用户必须再次向下滚动并再次到达页面末尾，可以再次进行选择并显示绘图。

fluidRow( style = "background-color:#FFFAFA00;",
            
            box(
              width = 12,
              solidHeader = TRUE,
              header = TRUE,
              background = NULL,
              ui <- uiOutput("uiStub") 
            )

对于这种情况有什么解决方法吗？

亲切的问候