Sostituzione del testo

Fa parte della sezione Logica e flusso del percorso R di Coddy. Lezione 5 di 64.

sub(pattern, replacement, x) sostituisce la prima corrispondenza in ogni stringa, mentre gsub() sostituisce tutte le corrispondenze. Come con grepl(), fixed = TRUE tratta il pattern come testo semplice.

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

Output:

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

Sostituendo con una stringa vuota si eliminano le corrispondenze. In questo modo si pulisce il testo prima di convertirlo in un numero:

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

Senza fixed = TRUE, il modello è un'espressione regolare. Due elementi utili: [0-9] corrisponde a qualsiasi cifra e + ripete l'elemento che lo precede una o più volte, quindi " +" corrisponde a una sequenza di spazi.

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 ### ####"

Come le altre funzioni per le stringhe, sub() e gsub() operano su ogni elemento di un vettore:

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"

Sfida

Facile

Completa slugify(title). Restituisci il titolo in minuscolo, senza spazi all'inizio o alla fine e sostituendo ogni sequenza di spazi con un singolo -: Hello World diventa hello-world.

Il codice fornito legge il titolo e stampa il valore restituito.

Provalo tu

slugify <- function(title) {
  # Write your code here
  title
}

# Supplied input/output code: keep it as it is
input <- suppressWarnings(readLines(file("stdin")))
cat(slugify(input[1]), sep = "\n")