页面刷新闪亮

Question

我想在我闪亮的应用程序中包含一个按钮，重新启动闪亮的会话（目的是重置所有输入和操作按钮的值）。我知道闪亮具有session$reset()功能，并且包shinyjs包含reset()和refresh()功能。

这些选项正在刷新页面，但是当我使用它们时（或者当我手动点击刷新时），我的应用程序的格式会丢失。以下是说明问题的示例代码和图像。

library(rhandsontable)

data = matrix(rnorm(10*10,mean=0,sd=1), 10, 10) 

ui <- fluidPage(
  titlePanel('Patient Search v2.0'),

  sidebarLayout(
    sidebarPanel(
      textInput('search', 'Search')
    ),

    mainPanel(
      rHandsontableOutput('data')
    )
  )
)

server <- function(input, output, session){
  df = data
  output$data <- renderRHandsontable({rhandsontable(df)})

  session$onSessionEnded(stopApp)
}

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