Text ersetzen

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 5 von 64.

sub(pattern, replacement, x) ersetzt das erste Vorkommen in jeder Zeichenkette, und gsub() ersetzt jedes Vorkommen. Wie bei grepl() behandelt fixed = TRUE das Muster als einfachen Text.

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

Ausgabe:

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

Das Ersetzen durch eine leere Zeichenfolge löscht die Treffer. Dadurch wird der Text vor der Umwandlung in eine Zahl bereinigt:

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

Ausgabe:

[1] "1299.00"
[1] 2598

Ohne fixed = TRUE ist das Muster ein regulärer Ausdruck. Zwei nützliche Bestandteile: [0-9] entspricht jeder Ziffer, und + wiederholt das vorangehende Element ein- oder mehrmals, sodass " +" eine Folge von Leerzeichen entspricht.

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

Ausgabe:

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

Wie die anderen Zeichenkettenfunktionen arbeiten sub() und gsub() mit jedem Element eines Vektors:

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

Ausgabe:

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

Aufgabe

Einfach

Vervollständige slugify(title). Gib den Titel in Kleinbuchstaben zurück, ohne Leerzeichen am Anfang oder Ende, und ersetze jede Folge von Leerzeichen durch ein einzelnes -: Hello World wird zu hello-world.

Der bereitgestellte Code liest den Titel ein und gibt den zurückgegebenen Wert aus.

Probier es selbst

slugify <- function(title) {
  # Schreibe deinen Code hier
  title
}

# Mitgelieferter Ein-/Ausgabe-Code: belasse ihn unverändert
input <- suppressWarnings(readLines(file("stdin")))
cat(slugify(input[1]), sep = "\n")