diffrprojects/dev.R at master · petermeissner/diffrprojects · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
#### ---------------------------------------------------------------------------
#
# library(diffrprojects)
#
# dp <-
#   diffrproject$new()$
#   text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", "bb\ncccd\ndd\nddd\nee\nff\n"))$
#   text_link()$
#   text_align( maxDist = 1 )$
#   alignment_code(1,1:24, "wuppah", 1)$
#   alignment_code(1,c(3,8,9,11), "womppah", 1)
#
# dp$text_code_regex(text=1, x="a", pattern="a", val=TRUE)
# dp$text_code_regex(text=2, x="b", pattern="[^a]", val=TRUE)
#
# dp$text_data_inherit()
#
# dp$debug()
#
# dp$export_sqlite()
#
#


#### ---------------------------------------------------------------------------

# library(diffrprojects)
#
# dp <-
#   diffrproject$new()$
#   text_add(list(prometheus_late, prometheus_early))$
#   text_link()$
#   text_align( maxDist = 1 )
#
# dp$text_code_regex(text=1, x="you", pattern="du|Du", val=TRUE)
# dp$text_code_regex(text=1, x="me", pattern="ich|Ich", val=TRUE)
#
# dp$text_code_regex(text=2, x="you", pattern="du|Du", val=TRUE)
# dp$text_code_regex(text=2, x="me", pattern="ich|Ich", val=TRUE)
#
# dp$debug()
#
# dp$tokenize_text_data_words()
#
#
# sort_alignment(dp$alignment[[1]], ti1 = "token_i_1", ti2 = "token_i_2" )
#
#
# dp$alignment_data_full(1, FALSE)


#### ---------------------------------------------------------------------------


library(diffrprojects)


dp <-
  diffrproject$new()$
  text_add(list(prometheus_late, prometheus_early))$
  text_link()$
  text_align( maxDist = 1 )

# dp$text_code_regex(text=1, x="you", pattern="du|Du", val=TRUE)
# dp$text_code_regex(text=1, x="me", pattern="ich|Ich", val=TRUE)
#
# dp$text_code_regex(text=2, x="you", pattern="du|Du", val=TRUE)
# dp$text_code_regex(text=2, x="me", pattern="ich|Ich", val=TRUE)
#
# dp$alignment_code(1,1,"x", "muhaha")
# dp$alignment_code(1,1,"dings", "check this out")

 dp$debug()