Subcadenas con substr()

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

substr(x, start, stop) devuelve los caracteres de x desde la posición start hasta la posición stop, ambas inclusive. Las posiciones comienzan en 1, como los índices de los vectores.

word <- "programming"
print(substr(word, 1, 7))
print(substr(word, 4, 6))

Salida:

[1] "program"
[1] "gra"

Para tomar caracteres del final, calcula las posiciones con nchar():

code <- "INV-2024-0042"
n <- nchar(code)
print(substr(code, n - 3, n))

Salida:

[1] "0042"

Un stop que supera el final se ajusta al último carácter, y un start mayor que stop da como resultado una cadena vacía:

print(substr("cat", 2, 10))
print(substr("cat", 3, 1))

Salida:

[1] "at"
[1] ""

substr() funciona en cada elemento de un vector de caracteres a la vez:

days <- c("Monday", "Tuesday", "Wednesday")
print(substr(days, 1, 3))

Salida:

[1] "Mon" "Tue" "Wed"

Asignar a substr() sobrescribe los caracteres en su lugar. La cadena conserva su longitud:

id <- "user-0000"
substr(id, 6, 9) <- "1234"
print(id)

Salida:

[1] "user-1234"

Desafío

Fácil

Completa short_code(city) para que devuelva las tres primeras letras de city en mayúsculas. Para london, devuelve LON.

El código proporcionado lee la ciudad de la entrada e imprime el valor devuelto en su propia línea.

Pruébalo tú mismo

short_code <- function(city) {
  # Escribe tu código aquí
  ""
}

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