| Marc Kupietz | 4152c84 | 2025-06-19 16:24:45 +0200 | [diff] [blame] | 1 | library(RKorAPClient) |
| 2 | library(tidyverse) |
| 3 | |
| 4 | VC = "textTypeRef = /Arzt.*/" # virtual corpus with just doctor novels etc. |
| 5 | |
| 6 | query <- KorAPConnection("https://korap.dnb.de", verbose = TRUE) |> |
| 7 | corpusQuery( |
| 8 | "<base/s=t>", # this finds each text once |
| 9 | vc = VC, |
| 10 | fields = c( |
| 11 | "textSigle", |
| 12 | "title", |
| 13 | "subTitle" |
| 14 | # "author", |
| 15 | # "textType", |
| 16 | # "textTypeRef", |
| 17 | # "publisher", |
| 18 | # "pubDate", |
| 19 | # "pubPlace", |
| 20 | # "ISBN", |
| 21 | # "URN" |
| 22 | ) |
| 23 | ) |> |
| 24 | fetchAll() |
| 25 | |
| 26 | df <- query@collectedMatches |> |
| 27 | select(-c("matchStart", "matchEnd")) |
| 28 | |
| 29 | View(df) |