R Shiny - disable/able shinyUI elements

Question

Я ищу способ реализовать функциональность отключения/абзаца над моими элементами shinyUI. Herexiaodaigh дает подсказку о том, как отключить/включить actionButton (см. Изображение ниже), и это мой желаемый результат, но код не делает трюк с другими элементами gui, которые я тестировал (например, numericInput).

(я знаю conditionalPanel особенность, но это не эффект, который я хотел бы иметь.)

Я бы сильно признателен за любые предложения, особенно потому, что я не очень знаком с JavaScript.

Answer 1

, что о том, когда ваши элементы «исчезают», когда определенное условие ложно.

Если это ваше намерение Вы можете добавить это в ваш server.R

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

Добавьте это в ui.R htmlOutput («sliderInputUI»)

sliderInput будет отображаться только в вашем ui, когда условие TRUE.

Answer 2

Причина, по которой код, на который вы ссылаетесь в своем вопросе, не работает для других виджетов ввода, заключается в том, что разные входные виджеты нуждаются в разных вызовах JavaScript, чтобы отключиться. Еще одна проблема заключается в том, что когда блестящий создает элемент ввода, иногда идентификатор, который вы указываете, является идентификатором фактического тега ввода HTML, а иногда этот идентификатор присваивается контейнеру входного тега.

У пакета shinyjs есть функция disable, которая будет работать как есть с любым блестящим входом. Отказ от ответственности: я написал этот пакет.

Вот как вы бы достичь Обезвреживая numericInput, как вы просили

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") 
    }) 
    } 
))