NoPaste

Aufgabe_4.R.txt

von tegula
SNIPPET_DESC:
Bitte Dateinamensendung .txt entfernen.
SNIPPET_CREATION_TIME:
07.09.2022 15:59:48
SNIPPET_PRUNE_TIME:
Unendlich

SNIPPET_TEXT:
  1. ## 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).
  2.  
  3.  
  4. # Tidyverse laden
  5. library(tidyverse)
  6. # Schwäbische Kunde laden
  7. load("schwaebische_kunde.RData")
  8. # Regex-Funktion ausführen
  9. ## Extrahiere alle Großbuchstaben
  10. list_matches <- schwaebische_kunde$text %>%
  11.   str_match_all("[:upper:]")
  12.  
  13. # Ergebnis formatiert anzeigen
  14. for (i in seq_along(list_matches)) {
  15.   cat("Zeile:",
  16.       i,
  17.       "\n")
  18.  
  19.   cat("**Die gesamte Zeile lautet:**",
  20.       schwaebische_kunde$text[i],
  21.       "\n\n")
  22.  
  23.   cat("**Matches in dieser Zeile:**",
  24.       list_matches[[i]] %>% str_c(collapse = "\n"),
  25.       sep = "\n")
  26.  
  27.   cat("===============================\n")
  28. }
  29.  

Quellcode

Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN