Hola Isidrio.
A ver si te vale algo como esto.....
server <- function(input, output, session) {
observe({
req(input$provincia)
municipios <- data %>%
filter(Provincia == input$provincia) %>%
pull(Municipio) %>%
unique() %>%
sort()
updateSelectInput(session, "Municipio", choices = c("", municipios))
})
# [ ... resto del código ... ]
}
Nota: antes hago algo de "limpieza" como, por ejemplo, pasar los nombres de las
provincias a minúsculas y quedarme con valores únicos
data$Provincia <- tolower(data$Provincia)
unique_provincias <- unique(data$Provincia)
Tengo algo parecido programado aquí:
https://melisagal.shinyapps.io/ANALITICAS_ZB/
(es un visor sencillo de los resultados analíticos de las playas de Galicia)
Se puede acceder desde aquí:
https://www.sergas.es/Saude-publica/Praias
(casi al final de la página)
* Si necesitas el código completo dímelo.
Un saludo,
Miguel.
________________________________
De: R-help-es <[email protected]> en nombre de Isidro Hidalgo
Arellano via R-help-es <[email protected]>
Enviado: martes, 24 de septiembre de 2024 12:44
Para: r-help-es
Asunto: [R-es] Provincia y municipio en Shiny
Queridos colegas:
�Qu� funci�n tengo que utilizar para, en la interfaz de usuario de un Shiny,
una vez seleccionada una provincia de una lista, elegir un municipio de otra
lista (filtrados los de la provincia elegida)?
�C�mo se puede hacer ese filtro? Seguro que es una chorrada, pero no doy con
ello... estoy medio aterrizando en Shiny...
Mil gracias
Isidro Hidalgo Arellano
Observatorio del Mercado de Trabajo
Junta de Comunidades de Castilla - La Mancha
[[alternative HTML version deleted]]
________________________________
Nota: A información contida nesta mensaxe e os seus posibles documentos
adxuntos é privada e confidencial e está dirixida únicamente ó seu
destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por
favor elimínea. A distribución ou copia desta mensaxe non está autorizada.
Nota: La información contenida en este mensaje y sus posibles documentos
adjuntos es privada y confidencial y está dirigida únicamente a su
destinatario/a. Si usted no es el/la destinatario/a original de este mensaje,
por favor elimínelo. La distribución o copia de este mensaje no está autorizada.
See more languages: http://www.sergas.es/aviso-confidencialidad
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-help-es
