commit a32baeb804bd3cd5097e3ff5ee6efaea514ae182
author Marc Kupietz <kupietz@ids-mannheim.de> Tue Jun 13 22:39:27 2023 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Jun 13 22:39:27 2023 +0200
tree 2e6b3ced7380f56886fa40da3bba5c97d93fc436
parent afce9c1a66e6e45c6caaa30b185b9156c818616d

Shorten CA examples

Change-Id: Id0176ac3caccacd1990c7eef84bdec64e6cd9a56

R/common.R

diff --git a/R/common.R b/R/common.R
index 15ac425..f315150 100644
--- a/R/common.R
+++ b/R/common.R
@@ -91,6 +91,8 @@
 show_table <- function(df) {
   df %>%
     mutate(Collocate=sprintf('<a href="%s">%s</a>', webUIRequestUrl, collocate)) %>%
+    mutate(example=str_replace(example, ".*(\\W+\\w+\\W+\\w+\\W+<mark.*/mark>.*)", "\\1")) %>%
+    mutate(example=str_replace(example, "(.*<mark.*/mark>\\W+\\w+\\W+\\w+).*", "\\1")) %>%
     rowwise() %>%
     mutate(Example=highliteSubstrings(example, wordsFromQuery(query))) %>%
     select(Collocate, Example, logDice, pmi, ll) %>%