return a logical vector of the same length as x, indicating if elements are located before a set of entries to match or not.
Arguments
- x
an atomic vector of values to be tested
- entries
a sequence of items to be searched in
x
.
Examples
library(flextable)
library(officer)
dat <- data.frame(
stringsAsFactors = FALSE,
check.names = FALSE,
Level = c("setosa", "versicolor", "virginica", "<NA>", "Total"),
Freq = as.integer(c(50, 50, 50, 0, 150)),
`% Valid` = c(100/3,
100/3,100/3,NA,100),
`% Valid Cum.` = c(100/3, 100*2/3, 100, NA, 100),
`% Total` = c(100/3,
100/3,100/3,0,100),
`% Total Cum.` = c(100/3,
100*2/3,100,100,100)
)
ft <- flextable(dat)
ft <- hline(ft, i = ~ before(Level, "Total"),
border = fp_border_default(width = 2))
ft
Level
Freq
% Valid
% Valid Cum.
% Total
% Total Cum.
setosa
50
33.33333
33.33333
33.33333
33.33333
versicolor
50
33.33333
66.66667
33.33333
66.66667
virginica
50
33.33333
100.00000
33.33333
100.00000
<NA>
0
0.00000
100.00000
Total
150
100.00000
100.00000
100.00000
100.00000