Wyszukiwanie w łańcuchach znaków

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 4 z 64.

grepl(pattern, x) zwraca TRUE dla każdego elementu x, który zawiera pattern. Dodaj fixed = TRUE, aby wyszukiwać dokładne znaki. Bez tego wzorzec jest wyrażeniem regularnym, w którym znaki takie jak . i ? mają specjalne znaczenie.

files <- c("report.csv", "photo.png", "data.csv")
print(grepl(".csv", files, fixed = TRUE))
print(files[grepl(".csv", files, fixed = TRUE)])

Wynik:

[1]  TRUE FALSE  TRUE
[1] "report.csv" "data.csv"

startsWith(x, prefix) i endsWith(x, suffix) sprawdzają tylko początek lub koniec każdego ciągu znaków. Wszystkie te wyszukiwania uwzględniają wielkość liter, więc aby ją zignorować, najpierw użyj tolower().

names <- c("Anna", "bob", "Andre")
print(startsWith(names, "An"))
print(startsWith(tolower(names), "b"))

Wynik:

[1]  TRUE FALSE  TRUE
[1] FALSE  TRUE FALSE

Wyniki to wektory logiczne, więc sum() zlicza dopasowania, a any() sprawdza, czy jest co najmniej jedno:

emails <- c("a@x.com", "bad-address", "c@y.org")
valid <- grepl("@", emails, fixed = TRUE)
print(sum(valid))
print(any(!valid))

Wynik:

[1] 2
[1] TRUE

grep(pattern, x) zwraca pozycje pasujących elementów, a grep(pattern, x, value = TRUE) same elementy:

files <- c("a.csv", "b.txt", "c.csv")
print(grep(".csv", files, fixed = TRUE))
print(grep(".csv", files, fixed = TRUE, value = TRUE))

Wynik:

[1] 1 3
[1] "a.csv" "c.csv"

Wyzwanie

Łatwy

Uzupełnij count_domain(emails, domain). Zwróć liczbę adresów w emails, które kończą się na @, po którym następuje domain. Ignoruj wielkość liter: CY@CODDY.TECH jest zaliczany do domeny coddy.tech.

Podany kod odczytuje adresy z wiersza rozdzielonego przecinkami, następnie domenę i wypisuje zwróconą liczbę.

Spróbuj swoich sił

count_domain <- function(emails, domain) {
  # Wpisz tutaj swój kod
  0
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
emails <- strsplit(input[1], ",")[[1]]
cat(count_domain(emails, input[2]), sep = "\n")