R Shiny - disable/able elementi shinyUI

Question

Sto cercando un modo per implementare la funzionalità di disabilitazione/disabilitazione sui miei elementi shinyUI. Herexiaodaigh fornisce un suggerimento su come disabilitare/abilitare un actionButton (vedere un'immagine sotto) e questo è il mio risultato desiderato, ma il codice non fa il trucco con altri elementi di GUI che ho testato (ad esempio numericInput).

(lo so una caratteristica conditionalPanel, ma questo non è l'effetto mi piacerebbe avere.)

vivamente apprezzare qualche suggerimento, soprattutto perché non sono molto familiarità con JavaScript.

Answer 1

che dire quando i tuoi elementi "svaniscono" quando una certa condizione è FALSE.

Se questa è la vostra intenzione è possibile aggiungere questo nella vostra server.R

output$sliderInputUI <- renderUI({ 
    if (condition == TRUE) { 
     sliderInput("id", "text", 
      min = 1, max = 8, 
      value = 1, step = 1 
     ) 
    } 
}) 

Aggiungi questo al vostro ui.R htmlOutput ("sliderInputUI")

sliderInput apparirà solo nella tua ui quando la condizione è VERA.

Answer 2

Il motivo per cui il codice collegato alla domanda non funziona per altri widget di input è perché i diversi widget di input richiedono chiamate JavaScript diverse per disabilitarlo. Un altro problema è che quando lucida crea un elemento di input, a volte l'id che si fornisce è l'ID del tag di input HTML effettivo mentre a volte quell'ID viene assegnato a un contenitore del tag di input.

Il pacchetto shinyjs ha una funzione disable che funziona così com'è con qualsiasi input lucido. Disclaimer: ho scritto quel pacchetto.

Ecco come si potrebbe ottenere la disabilitazione di un numericInput come hai chiesto

library(shiny) 
runApp(shinyApp(
    ui = fluidPage(
    shinyjs::useShinyjs(), 
    numericInput("test", "Test", 5), 
    actionButton("submit", "Choose") 
), 
    server = function(input, output, session) { 
    observeEvent(input$submit, { 
     shinyjs::disable("test") 
    }) 
    } 
))