Mengganti Teks

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 5 dari 64.

sub(pattern, replacement, x) mengganti kecocokan pertama dalam setiap string, sedangkan gsub() mengganti setiap kecocokan. Seperti grepl(), fixed = TRUE memperlakukan pattern sebagai teks biasa.

date <- "2024-01-15"
print(sub("-", "/", date, fixed = TRUE))
print(gsub("-", "/", date, fixed = TRUE))

Output:

[1] "2024/01-15"
[1] "2024/01/15"

Mengganti dengan string kosong akan menghapus bagian yang cocok. Ini membersihkan teks sebelum mengubahnya menjadi angka:

price <- "$1,299.00"
clean <- gsub(",", "", sub("$", "", price, fixed = TRUE), fixed = TRUE)
print(clean)
print(as.numeric(clean) * 2)

Output:

[1] "1299.00"
[1] 2598

Tanpa fixed = TRUE, pola tersebut adalah ekspresi reguler. Dua bagian yang berguna: [0-9] cocok dengan digit apa pun, dan + mengulang bagian sebelumnya satu kali atau lebih, jadi " +" cocok dengan rangkaian spasi.

msg <- "call  me   at 555 0199"
print(gsub(" +", " ", msg))
print(gsub("[0-9]", "#", msg))

Output:

[1] "call me at 555 0199"
[1] "call  me   at ### ####"

Seperti fungsi string lainnya, sub() dan gsub() bekerja pada setiap elemen dari sebuah vektor:

codes <- c("a-1", "b-22", "c-3")
print(gsub("-", "", codes, fixed = TRUE))
print(sub("-[0-9]+", "", codes))

Output:

[1] "a1"  "b22" "c3" 
[1] "a" "b" "c"

Tantangan

Mudah

Lengkapi slugify(title). Kembalikan judul dalam huruf kecil, tanpa spasi di awal atau akhir, dan ganti setiap rangkaian spasi dengan satu -: Hello World menjadi hello-world.

Kode yang disediakan membaca judul dan mencetak nilai yang dikembalikan.

Coba sendiri

slugify <- function(title) {
  # Tulis kodemu di sini
  title
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(slugify(input[1]), sep = "\n")