スクロール後に光沢のあるページジャンプ

Question

私はより大きな光沢のあるインターフェイスをプログラミングしています.ui.r mainPanelにはtabPanelを含むtabsetPanelが含まれており、さまざまな種類のテーブルとプロット出力があります。スクロールしなければならないページが、例えば、（再）プロット出力、テーブルエントリなどを選択すると、そのスクロール位置でジャンプする傾向があることを除いて、それは素晴らしいように見える。ジャンプは時々ページの始めに、時には他のところに行く。 FirefoxとChromeの両方で発生します。したがって、そのようなジャンプを防止または抑制する方法はありますか？ご助力ありがとうございます。以下は

選択はページの一番下にあるテーブル行に行われた後のUIは、ページの一番上にジャンプする、最小限の例です。

library(shiny) 
library(DT) 
data=data.frame(x=1:10,y=2:11) 

ui=shinyUI(
    fluidPage(
    plotOutput("plot1"), 
    plotOutput("plot2"), 
    DT::dataTableOutput("tt") 
) 
) 

server=shinyServer(function(input, output) { 
    dd=reactiveValues(d=data) 
    output$plot1 <- renderPlot({plot(0,1)}) 
    output$plot2 <- renderPlot({plot(0,1)}) 
    output$tt=DT::renderDataTable(
    datatable(
     dd$d,selection =c('single') 
    ) 
) 
    observeEvent(input$tt_rows_selected,{ 
    dd$d[input$tt_rows_selected,1]<-log(dd$d[input$tt_rows_selected,1]) 
    }) 
}) 

shinyApp(ui,server) 

Answer 1

library(shiny) 
library(DT) 
data=data.frame(x=1:10,y=2:11) 

ui=shinyUI(
    fluidPage(
    plotOutput("plot1"), 
    plotOutput("plot2"), 
    DT::dataTableOutput("tt") 
) 
) 

server=shinyServer(function(input, output) { 
    dd=reactiveValues(d=data) 
    output$plot1 <- renderPlot({plot(0,1)}) 
    output$plot2 <- renderPlot({plot(0,1)}) 
    output$tt=DT::renderDataTable(
    datatable(
     data,selection ='single' 
    ) 
) 
    observeEvent(input$tt_rows_selected,{ 
    dd$d[input$tt_rows_selected,1]<-log(dd$d[input$tt_rows_selected,1]) 
    }) 
}) 

shinyApp(ui,server) 

これは、のために働きます私。問題はselection = c('single')でした。それはselection = 'single'である必要があります。 DT::datatableのドキュメントでは、selectionに渡すことができる引数は、すべてのオプションが何であるかを示すためにc()に含まれています。