sQuote

R Base 3.6.2 🇮🇩 Bahasa Indonesia

Teks kutipan tunggal atau ganda dengan menggabungkan tanda kutip tunggal atau ganda kiri dan kanan yang sesuai.

Syntax

sQuote(x, q = getOption("useFancyQuotes"))
dQuote(x, q = getOption("useFancyQuotes"))

Arguments

Parameter	Deskripsi
`x`	an R object, to be coerced to a character vector.
`q`	the kind of quotes to be used, see ‘Details’.

Return Value

Vektor karakter dengan panjang yang sama dengan x (setelah paksaan apa pun) dalam pengkodean lokal saat ini.

Details

Tujuan dari fungsi ini adalah untuk menyediakan sarana markup sederhana untuk mengutip teks yang akan digunakan dalam keluaran R, misalnya dalam peringatan atau pesan kesalahan. Pilihan tanda kutip yang sesuai bergantung pada lokal dan rangkaian karakter yang tersedia. Font Unix/X11 yang lebih lama menampilkan aksen kuburan (kode ASCII 0x60) dan tanda kutip (0x27) sedemikian rupa sehingga dapat juga digunakan sebagai pencocokan tanda kutip tunggal buka dan tutup. Menggunakan font modern, atau sistem non-Unix, karakter ini tidak lagi menghasilkan mesin terbang yang cocok. Unicode menyediakan karakter tanda kutip tunggal kiri dan kanan (U+2018 dan U+2019); jika markup Unicode tidak dapat diasumsikan tersedia, sebaiknya gunakan tanda kutip sebagai tanda kutip tunggal non-arah. Demikian pula, Unicode memiliki dou kiri dan kanan

Contoh

Example

# NOT RUN {
op <- options("useFancyQuotes")
paste("argument", sQuote("x"), "must be non-zero")
options(useFancyQuotes = FALSE)
cat("\ndistinguish plain", sQuote("single"), "and",
    dQuote("double"), "quotes\n")
options(useFancyQuotes = TRUE)
cat("\ndistinguish fancy", sQuote("single"), "and",
    dQuote("double"), "quotes\n")
options(useFancyQuotes = "TeX")
cat("\ndistinguish TeX", sQuote("single"), "and",
    dQuote("double"), "quotes\n")
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")
}
options(op)
# }