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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
lorem_words <- c(
"ad",
"adipisicing",
"aliqua",
"aliquip",
"amet",
"anim",
"aute",
"cillum",
"commodo",
"consectetur",
"consequat",
"culpa",
"cupidatat",
"deserunt",
"do",
"dolor",
"dolore",
"duis",
"ea",
"eiusmod",
"elit",
"enim",
"esse",
"est",
"et",
"eu",
"ex",
"excepteur",
"exercitation",
"fugiat",
"id",
"in",
"incididunt",
"ipsum",
"irure",
"labore",
"laboris",
"laborum",
"Lorem",
"magna",
"minim",
"mollit",
"nisi",
"non",
"nostrud",
"nulla",
"occaecat",
"officia",
"pariatur",
"proident",
"qui",
"quis",
"reprehenderit",
"sint",
"sit",
"sunt",
"tempor",
"ullamco",
"ut",
"velit",
"veniam",
"voluptate"
)
lorem_ipsum <- function(paragraphs = 1, par_sentence_range = 5:10,
sentence_word_range = 5:15) {
vcapply(
1:paragraphs,
function(x, ...) lorem_paragraph(...),
par_sentence_range = par_sentence_range,
sentence_word_range = sentence_word_range
)
}
lorem_paragraph <- function(par_sentence_range, sentence_word_range) {
num <- sample(par_sentence_range, 1)
paste(
collapse = " ",
vcapply(
1:num,
function(x, ...) lorem_sentence(...),
sentence_word_range = sentence_word_range
)
)
}
lorem_sentence <- function(sentence_word_range) {
num <- sample(sentence_word_range, 1)
words <- sample(lorem_words, num, replace = TRUE)
words[1] <- capitalize(words[1])
paste0(paste(words, collapse = " "), ".")
}
capitalize <- function(x) {
substr(x, 1, 1) <- toupper(substr(x, 1, 1))
x
}
|
