R/AVSDevR.A11yShinyInputs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed file input screen reader confusion

Browse Source
This commit is contained in:
Craig Williams
2026-02-13 11:57:23 +00:00
parent 3a28e78757
commit 1322d10b16
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/a11yFileInput.R
View File

@@ -51,11 +51,12 @@ a11yFileInput <- function(
), ),
htmltools::tags$div( htmltools::tags$div(
class = "input-group", class = "input-group",
htmltools::tags$label( htmltools::tags$div(
class = "input-group-btn input-group-prepend", class = "input-group-btn input-group-prepend",
htmltools::tags$span( htmltools::tags$span(
class = "btn btn-default btn-file", buttonLabel, inputTag class = "btn btn-default btn-file", buttonLabel
) ),
inputTag
), ),
htmltools::tags$input( htmltools::tags$input(
type = "text", type = "text",