プロットがロードされているときに光沢のあるボタンを無効にする

Question

プロット/リアクションエレメントがロードされているときに光沢のあるボタンを無効にすることはできますか？ shinyjsは入力要素を無効にして有効にすることができますが、負荷プロット/リアクティブ要素への接続を設定する方法はわかりません。この例はSingle-file shiny apps pageに基づいています。私はちょうどボタンと孤立した部分を追加しました。 shinyjsに基づいていないソリューションも評価されています:)このような

library(shiny) 
server <- function(input, output) { 
    output$distPlot <- renderPlot({ 
    input$button 

    isolate(
     hist(rnorm(input$obs), col = 'darkgray', border = 'white') 
    ) 
    }) 
} 

ui <- fluidPage(
    shinyjs::useShinyjs(), 
    sidebarLayout(
    sidebarPanel(
     sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100), 
     actionButton("button", "OK!") 
    ), 
    mainPanel(plotOutput("distPlot")) 
) 
) 

shinyApp(ui = ui, server = server) 

Answer 1

何か？

library(shiny) 
library(shinyjs) 
server <- function(input, output) { 

    PlotData <- eventReactive(input$button,{ 
    disable("button") 
    Sys.sleep(2) 
    hist(rnorm(input$obs), col = 'darkgray', border = 'white') 
    enable("button") 
    }) 

    output$distPlot <- renderPlot({ 
    PlotData() 
    }) 
} 

ui <- fluidPage(
    shinyjs::useShinyjs(), 
    sidebarLayout(
    sidebarPanel(
     sliderInput("obs", "Number of observations:", min = 10, max = 1000, value = 2000), 
     actionButton("button", "OK!") 
    ), 
    mainPanel(plotOutput("distPlot")) 
) 
) 

shinyApp(ui = ui, server = server) 

Answer 2

次のように、時間を設定する必要はありません。このボタンは計算中のみ無効になります。

library(shiny) 

js <- " 
$(document).ready(function() { 
    $('#distPlot').on('shiny:recalculating', function() { 
    $('button').prop('disabled', true); 
    $('button').css('color', 'red'); 
    }); 
    $('#distPlot').on('shiny:recalculated', function() { 
    $('button').prop('disabled', false); 
    $('button').css('color', 'black'); 
}); 
}); 
" 

server <- function(input, output) { 

    output$distPlot <- renderPlot({ 
    hist(rnorm(input$obs), col = 'darkgray', border = 'white') 
    }) 
} 

ui <- fluidPage(
    tags$head(tags$script(HTML(js))), 
    sidebarLayout(
    sidebarPanel(
     sliderInput("obs", "Number of observations:", min = 10000, max = 100000, value = 20000), 
     actionButton("button", "OK!") 
    ), 
    mainPanel(plotOutput("distPlot")) 
) 
) 

shinyApp(ui = ui, server = server)