bounty明天到期。回答此问题可获得+50声望奖励。jasbner正在寻找一个答案从一个有信誉的来源。

例如，我有一个非常基本的闪亮应用程序，您可以选择一个字母：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(3, selectizeInput("Letters", "Choose a Letter",
      choices = LETTERS, multiple = TRUE)
    )
  )
)

server <- function(input, output) {}
shinyApp(ui = ui, server = server)

我需要这个闪亮的应用程序是508兼容/访问。如果我通过像WAVE这样的Web可访问性测试运行它，我会得到一个关于此selectizeInput部分缺少表单标签的错误。

我相信这是因为添加了一个随机的div，它不具有与“选择一个字母”标签引用的相同的ID。标签是Letters-selectized的，显示可访问性错误的div的ID是Letters。有没有办法解决这个错误？我知道你可以添加render到selectizeInput的选项中，但是我还没有找到一种方法来纠正这个特殊的div。
基于ismirsehregal的注解如果我尝试使用tagQuery为ID“Letters”添加额外的标签，我会得到一个重复的表单标签错误。我相信这是因为即使我指定了"for" = "Letters"，输出仍然是for = "Letters-selectized"

library(shiny)
library(htmltools)

ui <- fluidPage(
  {queryfluidRow <- tagQuery(fluidRow(
    column(3, selectizeInput("Letters", "Choose a Letter",
      choices = LETTERS, multiple = TRUE))
    )
  )
  queryfluidRow$find("#Letters")$parent()$prepend(tag("label hidden",list("class" = "control-label","for" = "Letters", "Custom Tag")))$allTags()}
)

server <- function(input, output) {}
shinyApp(ui = ui, server = server)

添加的tagQuery标签html如下所示，并产生其他错误。我可能不理解标签和表单控件选择之间的底层html关系。但是，我假设在tagQuery中设置"for" = "Letters"会将标签分配给正确的ID：

<label hidden="" class="control-label" for="Letters-selectized">Custom Tag</label>
<select id="Letters" class="form-control selectized shiny-bound-input" multiple="multiple" tabindex="-1" style="display: none;"></select>