[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) 

希望它能幫助！