[R闪亮的TabPanel点击

Question

时，使用

ui <- navbarPage("mytitle", 
      position = "fixed-top", 
      tabPanel("tab1", "long pieces of text..."), 
      tabPanel("tab2", "long pieces of text...")) 

和每个标签页都足够长，需要滚动不会自动获得到页面顶部。你如何做到这一点，以便当你点击导航栏上的tabs你切换标签，但也回到页面的顶部，而不只是你在前一页的位置？

我想它可能需要一些javascript干预，但不能如何。

感谢您的帮助

编辑 这里是一个真正的工作示例

library(shiny) 
ui <- navbarPage(
       title = "TITLE", 
       position = "fixed-top", 
       inverse = TRUE, 
       id = "inTabset", 
       collapsible = TRUE, 
       tabPanel("Tab1", 
          h1("long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
          ")), 
       tabPanel("Tab2", 
          h1("long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
          long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
          ")) 

       ) 

server <- function(input, output, session){} 

shinyApp(ui = ui, server = server) 

Answer 1

我添加了一个简单的js代码，这样，这样，当你切换标签页你回去的顶部页。

添加的js代码如下，它指示您在选项卡中观察到单击事件时滚动到页面的顶部。

$(document).ready(function() { 
     $('#inTabset a[data-toggle=\"tab\"]').bind('click', function (e) { 
       $(document).load().scrollTop(0); 
       }); 

       }); 

在你的代码，它会是这个样子：

library(shiny) 

ui <- navbarPage(
    title = "TITLE", 
    position = "fixed-top", 
    inverse = TRUE, 
    id = "inTabset", 
    collapsible = TRUE, 
    tabPanel("Tab1", 
      h1("long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
       long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
       ")), 
    tabPanel("Tab2", 
      h1("long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
       long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text,long pieces of text, 
       ")), 
    tags$script(" $(document).ready(function() { 
     $('#inTabset a[data-toggle=\"tab\"]').bind('click', function (e) { 
       $(document).load().scrollTop(0); 
       }); 

       });") 

      ) 

server <- function(input, output, session){} 

shinyApp(ui = ui, server = server) 

希望它能帮助！