5

こちらのリンクに従って、ページ更新ボタンを実装しようとしました。しかし、にデプロイしようとすると失敗し、すでに行ったshinyapp.ioパッケージのインストールを求められました。V8アプリはマシン上で正常に動作していました。私が使用したコードは次のとおりです。

jsResetCode <- "shinyjs.reset = function() {history.go(0)}",

useShinyjs(), # Include shinyjs in the UI

extendShinyjs(text = jsResetCode), # Add the js code to the page   

p(actionButton("reset_button", "Reset Tool"))

でserver.R：

observeEvent(input$reset_button, {js$reset()})

なしでこれを行う方法はありますshinyjsか？

4

1 に答える 1

24

以下のコードは、「更新」ボタンを使用する動作中の Shiny アプリの最小限の例です。

library(shiny)
library(shinyjs)

jscode <- "shinyjs.refresh = function() { history.go(0); }"

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jscode),
  textInput("text", "Text"),
  actionButton("refresh", "Refresh app")
)

server <- function(input, output, session) {
  observeEvent(input$refresh, {
    js$refresh();
  })
}

shinyApp(ui = ui, server = server)

編集：光沢のあるバージョン0.13.0以降、Shinyのsession$reload()機能を使用してページを更新することが可能です

于 2016-01-13T03:42:41.710 に答える