החלפת טקסט

חלק מהיחידה לוגיקה וזרימת תוכנית במסלול ה-R של Coddy. שיעור 5 מתוך 64.

sub(pattern, replacement, x) מחליפה את ההתאמה הראשונה בכל מחרוזת, ו־gsub() מחליפה את כל ההתאמות. כמו ב־grepl(), ‏fixed = TRUE מתייחסת לתבנית כאל טקסט רגיל.

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

פלט:

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

החלפה במחרוזת ריקה מוחקת את ההתאמות. כך מנקים טקסט לפני שממירים אותו למספר:

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

פלט:

[1] "1299.00"
[1] 2598

בלי fixed = TRUE, התבנית היא ביטוי רגולרי. שני רכיבים שימושיים: [0-9] מתאים לכל ספרה, ו־+ חוזר על הרכיב שלפניו פעם אחת או יותר, לכן " +" מתאים לרצף של רווחים.

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

פלט:

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

כמו פונקציות המחרוזת האחרות, sub() ו-gsub() פועלות על כל איבר בווקטור:

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

פלט:

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

אתגר

קל

השלימו את slugify(title). החזירו את הכותרת באותיות קטנות, ללא רווחים בתחילתה או בסופה, וכל רצף של רווחים יוחלף ב-- יחיד: Hello World הופך ל-hello-world.

הקוד שסופק קורא את הכותרת ומדפיס את הערך שהוחזר.

נסו בעצמכם

slugify <- function(title) {
  # כתבו את הקוד שלכם כאן
  title
}

# קוד הקלט/פלט שסופק: השאירו אותו כפי שהוא
input <- suppressWarnings(readLines(file("stdin")))
cat(slugify(input[1]), sep = "\n")