htmlWidgetsでonRender（）関数で作成されたオブジェクトを保存する

Question

Shinyアプリケーション内のhtmlWidgetsパッケージからonRender（）関数を使用しています。私は特定のonRender（）関数呼び出しの中で作成する特定のオブジェクトを保存しようとしているので、それらはonRender（）関数呼び出しの外側で使用できるようになっています。

以下は私のMWEです。私はonRender（）関数でval2というオブジェクトを作成しています。これはスライダーの入力値に2を掛けたものです。val2オブジェクトを保存して、後でonRender（）関数の外で使用できるようにすることはできますか？ （私は、この単純化された例ではval2オブジェクトを作成するためにonRender（）関数を使う必要はないが、この例を単純にしています）。

ありがとうございました！

library(plotly) 
library(htmlwidgets) 
library(shiny) 

myPlot <- qplot(data=mtcars, mpg, cyl) 
gMyPlot <- ggplotly(myPlot) 

ui <- shinyUI(fluidPage(
    sliderInput("ci", "Value:", min = 0, max = 1, value=0.95, step=0.01), 
    plotlyOutput("myTest") 
)) 

server <- shinyServer(function(input, output) { 

    ci <- reactive(input$ci) 

    output$myTest <- renderPlotly(gMyPlot %>% onRender(" 
        function(el, x, data) { 
        val2 = data * 2 
        console.log(val2) 
        }", data=ci()))}) 

shinyApp(ui, server) 

Answer 1

これはそうです。私はあなたの例を少しインタラクティブに変更しました。次に、javascript、h3タグ（最初に動作しています）、そして反応性のinputリスト（これはもっと便利です）の要素として、「val2」の値を2回格納します。値がサーバーとクライアントの間を行き来するので、これは非常に効率的ではないように見えることに注意してください。ここで

はコードです：

library(plotly) 
library(htmlwidgets) 
library(shiny) 

ui <- shinyUI(fluidPage(
    tags$h3('',class ='val2'), 
    sliderInput("ci", "Value:", min = 0, max = 34, value=34, step=1), 
    plotlyOutput("myPlot"), 
    textOutput("outval2") 
)) 

server <- shinyServer(function(input, output) { 

    ci <- reactive(input$ci) 

    output$myPlot <- renderPlotly({ 
      mdf <- mtcars %>% filter(mpg<ci()) 
      myPlot <- qplot(data=mdf, mpg, cyl) 
      ggplotly(myPlot) %>% onRender("function(el, x, data) { 
              val2 = data * 2 
              console.log(val2) 
              $('h3.val2').text('val2:'+val2); 
              Shiny.onInputChange('val2', val2); 
              }", data=ci()) 
      }) 
    output$outval2 <- renderPrint({sprintf("The calculated value is:%d",input$val2)}) 
    } 
) 
shinyApp(ui, server) 

そしてここでは、作業アプリのスクリーンショットです：

読む価値releventポストがこれです：Sending Shiny data from client to server