Fixed file input trigger

R/a11yFileInput.R

@@ -54,7 +54,9 @@ a11yFileInput <- function(
       htmltools::tags$div(
         class = "input-group-btn input-group-prepend",
         htmltools::tags$span(
-          class = "btn btn-default btn-file", buttonLabel
+          class = "btn btn-default btn-file",
+          onclick = paste0("$('#", inputId, "').click();"),
+          buttonLabel
         ),
         inputTag
       ),