Add `.squote` and `.dquote` to `epoxy_style_inline()`

[Garrick Aden-Buie]

library(epoxy)
abc <- c("a", "b", "c")

epoxy(
  "{.squote abc} or {.dquote abc}",
  .style = epoxy_style_inline(
    squote = \(x) sQuote(x, q = getOption("useFancyQuotes", 0)),
    dquote = \(x) dQuote(x, q = getOption("useFancyQuotes", 0))
  )
)
#> 'a' or "a"
#> 'b' or "b"
#> 'c' or "c"