Применение логики conditionalPanel, когда для одного switchInput задано значение TRUE, а ползунок имеет разные входы

Question

Я реализую приложение R Shiny, и мои навыки работы с Javascript не очень сильны.

Я изо всех сил пытаюсь придумать условную логику в conditionalPanel(), Как у меня id3 показывается только если id1 установлен в ИСТИНА, И диапазон ползунка id2 имеет разные выборы?

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  materialSwitch(inputId = "id1", label = "Do I want this on?", value = FALSE, status = "primary"),
  sliderTextInput(inputId = "id2", label = "Show below if the range is greater than 0", choices = 2000:2018, selected = rep(2018, 2)),
  br(), br(),
  conditionalPanel("input.id1 && input.id2[1] != input.id2[2]",
               materialSwitch(inputId = "id3", label = "To show based on conditions above.", value = FALSE, status = "primary")
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

Я также играл с shinyjs пакет, но у меня также не было никакого успеха (попытка ниже):

library(shiny)
library(shinyWidgets)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  materialSwitch(inputId = "id1", label = "Do I want this on?", value = FALSE, status = "primary"),
  sliderTextInput(inputId = "id2", label = "Show below if the range is greater than 0", choices = 2000:2018, selected = rep(2018, 2)),
  br(), br(),
  hidden(
    p(id = "element", materialSwitch(inputId = "id3", label = "To show based on conditions above.", value = FALSE, status = "primary"))
  )
)

server <- function(input, output) {
  observe({
    if (input$id1 == TRUE && (input$id2[1] != input$id2[2])) {
      show("element")
    }
  })  
}

shinyApp(ui = ui, server = server)

Answer 1

Я забыл, что Javascript использует индекс с нулевым основанием, в отличие от R.

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  materialSwitch(inputId = "id1", label = "Do I want this on?", value = FALSE, status = "primary"),
  sliderTextInput(inputId = "id2", label = "Show below if the range is greater than 0", choices = 2000:2018, selected = rep(2018, 2)),
  br(), br(),
  conditionalPanel("input.id1 && input.id2[0] != input.id2[1]",
           materialSwitch(inputId = "id3", label = "To show based on conditions above.", value = FALSE, status = "primary")
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)