Substring dengan substr()

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 1 dari 64.

substr(x, start, stop) mengembalikan karakter dari x mulai posisi start hingga posisi stop, termasuk keduanya. Posisi dimulai dari 1, seperti indeks vector.

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

Output:

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

Untuk mengambil karakter dari bagian akhir, hitung posisinya dengan nchar():

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

Output:

[1] "0042"

Nilai stop yang melewati akhir dipotong hingga karakter terakhir, dan start yang lebih besar daripada stop menghasilkan string kosong:

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

Output:

[1] "at"
[1] ""

substr() bekerja pada setiap elemen dalam vektor karakter sekaligus:

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

Output:

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

Menetapkan nilai ke substr() akan menimpa karakter secara langsung. Panjang string tetap sama:

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

Output:

[1] "user-1234"

Tantangan

Mudah

Lengkapi short_code(city) agar mengembalikan tiga huruf pertama dari city dalam huruf kapital. Untuk london, fungsi ini mengembalikan LON.

Kode yang disediakan membaca nama kota dari input dan mencetak nilai yang dikembalikan pada baris tersendiri.

Coba sendiri

short_code <- function(city) {
  # Tulis kodemu di sini
  ""
}

# Kode input/output yang disediakan: biarkan seperti apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(short_code(input[1]), sep = "\n")