Fixed file input screen reader confusion

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",