NoPaste

bis_zum_ersten_d.R

von tegula
SNIPPET_DESC:
Bitte nach dem Download Dateinamensendung ".txt" entfernen
SNIPPET_CREATION_TIME:
30.06.2022 16:03:17
SNIPPET_PRUNE_TIME:
Unendlich

SNIPPET_TEXT:
  1. !# /usr/bin/env Rscript
  2.  
  3. # Textdatei (Schwäbische Kunde) importieren
  4. schwaebische_kunde <- readr::read_lines(file = "schwaebische-kunde.txt") %>%
  5.   dplyr::as_tibble() %>%
  6.   dplyr::rename(text = value) %>%
  7.   tibble::rowid_to_column("zeile")
  8.  
  9. # RE anwenden
  10. ## RE in Worten: Ist der erste Buchstabe ein d, so wird nur das d extrahiert [dD].
  11. ## Ist der erste Buchstabe hingegen kein D [^dD] , so werden alle Zeichen
  12. ## (außer d), auf die ein d folgt extrahiert [^dD]*(?=[dD]) und als letztes
  13. ## Zeichen dann ebendieses d [dD]
  14. schwaebische_kunde$bis_zum_ersten_d <- schwaebische_kunde$text %>%
  15.   stringr::str_extract("[dD]|[^dD]*(?=[dD])[dD]")
  16.  
  17. # Ergebnis ausgeben
  18. print(x = schwaebische_kunde,
  19.       n = Inf)

Quellcode

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