Внутренняя ссылка между вкладками на определенный раздел в приложении R Shiny

Используя Ответ К. Роде в качестве отправной точки, их JavaScript был расширен вторым аргументом для данного идентификатора и командой, которая прокручивает его (document.getElementById(anchorName).scrollIntoView()), позволяет перейти к определенному разделу в пределах заданного tabPanel после переключения на него.

library(shiny)

ui = shinyUI(
  navbarPage("Header",
             tabPanel("Home",
                      tags$head(tags$script(HTML('
                        var fakeClick = function(tabName, anchorName) {
                          var dropdownList = document.getElementsByTagName("a");
                          for (var i = 0; i < dropdownList.length; i++) {
                            var link = dropdownList[i];
                            if (link.getAttribute("data-value") == tabName) {
                              link.click();
                              document.getElementById(anchorName).scrollIntoView({
                                behavior: "smooth"
                                });
                            };
                          }
                        };
                                                 '))),
                      fluidPage(
                        span("bring me to end of tab2",
                             onclick = "fakeClick('Tab2', 'visitme')"))),
             tabPanel("Tab2",
                      "Some Text inside Tab 2.",
                      div("This is a long div to visualize the redirection",
                        style = "background-color: gray;
                                height: 1000px;
                                width: 100px;"),
                      div(id = "visitme",
                          "This is the part where the redirection shall land."),
                      div("Another long div",
                          style = "background-color: gray;
                                  height: 1000px;
                                  width: 100px;"))))

server = function(input, output, session){}

runApp(shinyApp(ui, server), launch.browser = TRUE)