Reemplazar texto

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 5 de 64.

sub(pattern, replacement, x) reemplaza la primera coincidencia en cada cadena, y gsub() reemplaza todas las coincidencias. Al igual que grepl(), fixed = TRUE trata el patrón como texto sin formato.

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

Salida:

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

Reemplazar con una cadena vacía elimina las coincidencias. Esto limpia el texto antes de convertirlo en un número:

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

Salida:

[1] "1299.00"
[1] 2598

Sin fixed = TRUE, el patrón es una expresión regular. Dos elementos útiles: [0-9] coincide con cualquier dígito, y + repite el elemento anterior una o más veces, por lo que " +" coincide con una secuencia de espacios.

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

Salida:

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

Al igual que las otras funciones de cadenas, sub() y gsub() funcionan con cada elemento de un vector:

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

Salida:

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

Desafío

Fácil

Completa slugify(title). Devuelve el título en minúsculas, sin espacios al principio ni al final, y con cada secuencia de espacios reemplazada por un único -: Hello World se convierte en hello-world.

El código proporcionado lee el título e imprime el valor devuelto.

Pruébalo tú mismo

slugify <- function(title) {
  # Escribe tu código aquí
  title
}

# Código de entrada/salida suministrado: déjalo como está
input <- suppressWarnings(readLines(file("stdin")))
cat(slugify(input[1]), sep = "\n")