استبدال النصوص

جزء من قسم المنطق وتدفق التنفيذ في رحلة 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")