Fixed file input screen reader confusion

2026-02-13 11:57:23 +00:00
parent 3a28e78757
commit 1322d10b16
1 changed files with 4 additions and 3 deletions
--- a/R/a11yFileInput.R
+++ b/R/a11yFileInput.R
@@ -51,11 +51,12 @@ a11yFileInput <- function(
    ),
    htmltools::tags$div(
      class = "input-group",
-      htmltools::tags$label(
+      htmltools::tags$div(
        class = "input-group-btn input-group-prepend",
        htmltools::tags$span(
-          class = "btn btn-default btn-file", buttonLabel, inputTag
-        )
+          class = "btn btn-default btn-file", buttonLabel
+        ),
+        inputTag
      ),
      htmltools::tags$input(
        type = "text",