Hey everyone,
So I've been struggling with this line of code.
When I run the document, nothing appears underneath my uiOutput("SELECT_STAGE_1")
When I delete this line, the rest of the code gets rendered but when I put it back, this SELECT_STAGE_1 appears but nothing else afterwards.
Did I do something wrong on my "renderUI" line?
---
title: "ALICE"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(leaflet)
STAGES <- read_csv2("20191122_STAGES.csv")
STATIONS <- read_csv2("20191122_STATIONS.csv")
TRAJETS <- read_csv2("20191122_TRAJETS.csv")
output$SELECT_STAGE_1 <- renderUI({
liste_stage_1 <- STAGES$ETABLISSEMENT[STAGES$DEPT == input$DEPT_1]
selectInput("SELECT_STAGE_1",
label = NULL,
choices = liste_stage_1,
selected = NULL)
})
Column {data-width=1000}
Hello
selectInput("DEPT_1",
label = NULL,
choices = sort(unique(STAGES$DEPT)),
selected = "AUCUN")
uiOutput("SELECT_STAGE_1")
sliderInput("WANTED_TIME", "Wanted time", 5, 90, 10)
checkboxInput("UNAUTRE", label = "I need a second entry", value = FALSE)
conditionalPanel(
condition = "input.UNAUTRE == true",
selectInput("DEPT_2",
label = NULL,
choices = sort(unique(STAGES$DEPT)),
selected = "AUCUN"))
Thanks for your help !