Improve accessibility of girafe widget about ggiraph

[sigmapi]

Fixed this in 70e4d62

Added title and desc arguments to dsvg function. You can set them in girafe function and they'll be forwarded.
The result is that:

• title and desc sub-elements are added to the svg element
• aria-labelledby and aria-describedby attributes are added to the svg element
• role attribute (role='img') is added to the svg element

Here is a minimal example:

library(ggplot2)
library(ggiraph)
dat <- mtcars
dat$carname <- row.names(mtcars)
gg <- ggplot(data = dat) +
  geom_point_interactive(aes(
    x = wt, y = qsec, color = disp,
    tooltip = paste(carname, disp, sep = "\n"), 
    data_id = carname
  )) +
  theme_minimal()
x <- girafe(ggobj = gg_point, title = "ggiraph is cool!", desc = "very very cool!")
print(x)

Be aware that when using the title argument, the browser will use it as a tooltip for the whole svg an it may class with the interactive elements' tooltip, as you can see in the example above.

[sigmapi]

I preferred to stick with the w3c naming and use title and desc instead of alt-title and alt-desc.

As for the caption, we'd like to leave it out for now.
If you really want a caption you can accomplish it by other way, for example enclose the widget in a figure element with a figcaption.
Additionally, with the quarto develpment going on, this could by accomplished with quarto code.

[geotheory]

In fact would be good to implement alt_title, alt_desc & caption as per https://co-analysis.github.io/govuk-hugo-demo/section/render_svg/