Curly quotation marks won't work; they must be straight.
op <- options("useFancyQuotes")
paste("argument", sQuote("x"), "must be non-zero")
#> [1] "argument 'x' must be non-zero"
options(useFancyQuotes = FALSE)
cat("\ndistinguish plain", sQuote("single"), "and",
dQuote("double"), "quotes\n")
#>
#> distinguish plain 'single' and "double" quotes
options(useFancyQuotes = TRUE)
cat("\ndistinguish fancy", sQuote("single"), "and",
dQuote("double"), "quotes\n")
#>
#> distinguish fancy ‘single’ and “double” quotes
options(useFancyQuotes = "TeX")
cat("\ndistinguish TeX", sQuote("single"), "and",
dQuote("double"), "quotes\n")
#>
#> distinguish TeX `single' and ``double'' quotes
if(l10n_info()$`Latin-1`) {
options(useFancyQuotes = c("\xab", "\xbb", "\xbf", "?"))
cat("\n", sQuote("guillemet"), "and",
dQuote("Spanish question"), "styles\n")
} else if(l10n_info()$`UTF-8`) {
options(useFancyQuotes = c("\xc2\xab", "\xc2\xbb", "\xc2\xbf", "?"))
cat("\n", sQuote("guillemet"), "and",
dQuote("Spanish question"), "styles\n")
}
#>
#> «guillemet» and ¿Spanish question? styles
options(op)
Created on 2020-10-30 by the reprex package (v0.3.0.9001)