| Marc Kupietz | 0bb2152 | 2020-02-04 11:27:25 +0100 | [diff] [blame] | 1 | library(RKorAPClient) |
| Marc Kupietz | 781d26f | 2023-05-13 10:39:59 +0200 | [diff] [blame] | 2 | library(kableExtra) |
| 3 | library(dplyr) |
| Marc Kupietz | 0bb2152 | 2020-02-04 11:27:25 +0100 | [diff] [blame] | 4 | |
| Marc Kupietz | 781d26f | 2023-05-13 10:39:59 +0200 | [diff] [blame] | 5 | query = 'V\u00F6ner' # "Portable packages must use only ASCII characters in their demos." |
| Marc Kupietz | 0bb2152 | 2020-02-04 11:27:25 +0100 | [diff] [blame] | 6 | |
| Marc Kupietz | a3d9a32 | 2025-02-04 12:31:05 +0100 | [diff] [blame] | 7 | new("KorAPConnection", verbose = TRUE) %>% |
| 8 | auth() %>% |
| Marc Kupietz | 781d26f | 2023-05-13 10:39:59 +0200 | [diff] [blame] | 9 | corpusQuery(query, fields = c("textSigle", "pubDate", "corpusTitle", "snippet"), |
| 10 | metadataOnly = FALSE) %>% |
| Marc Kupietz | 0bb2152 | 2020-02-04 11:27:25 +0100 | [diff] [blame] | 11 | fetchAll() %>% |
| Marc Kupietz | 781d26f | 2023-05-13 10:39:59 +0200 | [diff] [blame] | 12 | slot("collectedMatches") %>% |
| 13 | dplyr::arrange(pubDate) %>% |
| 14 | dplyr::rename("kwic" = "snippet") %>% |
| Marc Kupietz | a3d9a32 | 2025-02-04 12:31:05 +0100 | [diff] [blame] | 15 | kable(format = "html", escape = FALSE, caption = paste0("Query hits for '", query, "' ordered by date of publication")) %>% |
| Marc Kupietz | 781d26f | 2023-05-13 10:39:59 +0200 | [diff] [blame] | 16 | kable_styling() %>% |
| 17 | print() |