Hello,
I was trying to test if the described shiny app was 508 compliant. One of the errors was the labeling in the select input. I think the command "selectInput" generate a HTML code not 508 complaint (with extra div).
Using HTML code solves the issue: Here is the new app code:
library(shiny)
x=c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear")
shinyApp(
ui = fluidPage(
HTML('
Variable:
'),
# selectInput("variable", "Variable:",x),
tableOutput("data")
),
server = function(input, output) {
output$data <- renderTable({mtcars[, c("mpg", input$variable), drop = FALSE]}, rownames = TRUE)
}
)
As you can see in Wave the label error is gone:
Any other suggestions without Html raw code?
FE