## Aufgabe 4) Extrahiere aus der Schwäbischen Kunde alle Großbuchstaben. Formatiere die Ausgabe so, dass gentrennt nach Verse (Zeilen) folgende Informationen möglich übersichtlich angezeigt werden: 1.) Zeilenummer des Verses. 2.) Gesamter Text des Verses. 3.) Alle Großbuchstaben, die in diesem Verses enthalten sind. Du bist frei in der Wahl des Ausgabemediums (z. B. R-Konsole, Standardausgabe, Spreadsheet-Datei oder ähnliches).


# Tidyverse laden
library(tidyverse)
# Schwäbische Kunde laden
load("schwaebische_kunde.RData")
# Regex-Funktion ausführen
## Extrahiere alle Großbuchstaben
list_matches <- schwaebische_kunde$text %>%
  str_match_all("[:upper:]")

# Ergebnis formatiert anzeigen
for (i in seq_along(list_matches)) {
  cat("Zeile:",
      i,
      "\n")
  
  cat("**Die gesamte Zeile lautet:**",
      schwaebische_kunde$text[i],
      "\n\n")
  
  cat("**Matches in dieser Zeile:**",
      list_matches[[i]] %>% str_c(collapse = "\n"),
      sep = "\n")
  
  cat("===============================\n")
}