disinyble shiny sliderInput shinyjsを使用

Question

私はdplyrを使って複数のlm（）モデルを構築しています。私はユーザーにshiny appの独立変数の値を変更させることを許可したい。 - shiny :: sliderInput（）。しかし、「フィットの良さ」がR^2がスレッショルドよりも大きいと言います。そうでなければスライダを無効にしてください。 shinyjs :: disable（）関数を使用しようとしました。下記を参照してくださいが、それを動作させることはできません。私が間違っていることに関するアイデアは？

library(shiny) 
library(shinyjs) 

# Define UI for application that draws a histogram 
ui <- shinyUI(fluidPage(
    sidebarLayout(
     sidebarPanel(
     sliderInput("test","Nice number",min = 1,max = 50,value = 30) 
    ), 
    mainPanel(
     textOutput("valueText") 
    ) 
    ) 
)) 

# Define server to disable slider if value selected 

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

    value <- reactive(input$test) 
    output$valueText <- renderText(paste(value())) 

    #How to diasble slider? 
     reactive(if(value()==35){ 
     shinyjs::disable('test') 
    } 
    ) 
    }) 

# Run the application 
shinyApp(ui = ui, server = server) 

Answer 1

ui.RでuseShinyjs（）を呼び出す必要があります。

これはコードです：

library(shiny) 
    library(shinyjs) 

    # Define UI for application that draws a histogram 
    ui <- shinyUI(
      tagList(
      useShinyjs(), 
      fluidPage(
      sidebarLayout(
        sidebarPanel(
          sliderInput("test","Nice number",min = 1,max = 50,value = 30) 
        ), 
        mainPanel(
          textOutput("valueText") 
        ) 
      ) 
    ) 

    ) 
    ) 

    # Define server to disable slider if value selected 

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

      value <- reactive(input$test) 
      output$valueText <- renderText(paste(value())) 

      #How to diasble slider? 
      observeEvent(value(), { 
        if(value()==35){ 
          shinyjs::disable('test') 
        } 
      }) 

    }) 

    # Run the application 
    shinyApp(ui = ui, server = server)