Estoy buscando crear un panel condicional en shiny que se active si la entrada que el usuario selecciona de una lista (es decir, la función selectInput) pertenece a otro vector.
Soy consciente de que la condición en el panel condicional es un elemento javascript, sin embargo, no puedo hacer que funcione.
¿Alguien puede ayudar?
Aquí está la parte de la interfaz de usuario del código bajo examen:
legs1 <- c("HOUSE","VILLA","ATTICO") selectInput("strategy", "Strategy:", choices = df[,6]), conditionalPanel( condition = 'input.strategy && input.strategy.indexOf("legs1") > -1', textInput("Leg1", "Leg1",value = ""), textInput("Leg2","Leg2", value =""), ),Si no tiene que acceder al vector desde dentro de la condición, debería funcionar usando
condition = "input.strategy && ['HOUSE', 'VILLA', 'ATTICO'].indexOf(input.strategy) > -1"