r-functions/fmt_functions.R at dev · techLeadAtLogicOverCode/r-functions · 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
txt_styling = function(htmlText, htmlDisplayColor){
  paste0("<span style='color:", htmlDisplayColor, ";font-weight:bold'>", htmlText, "</span>")
}

leafType = function(text, textColor){
  paste0( txt_styling(text, textColor) )
}

theory_todo = function(){
  paste0(leafType("Theory", "red"))
}

theory_complete = function(){
  paste0(leafType("Theory", "green"))
}

example_todo = function(){
  paste0(leafType("Example", "red"))
}

example_complete = function(){
  paste0(leafType("Example", "green"))
}

description_todo = function(){
  paste0(leafType("Description", "red"))
}

description_complete = function(){
  paste0(leafType("Description", "green"))
}

code_todo = function(){
  paste0(leafType("Code", "red"))
}

code_complete = function(){
  paste0(leafType("Code", "green"))
}

exercise_todo = function(){
  paste0(leafType("Excercise", "red"))
}

exercise_complete = function(){
  paste0(leafType("Excercise", "green"))
}

mcq_todo = function(){
  paste0(leafType("Mcq", "red"))
}

mcq_complete = function(){
  paste0(leafType("Mcq", "green"))
}