mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 08:32:04 +02:00
(v1.5.0.9013) updated tibble printing colours
This commit is contained in:
2
R/mo.R
2
R/mo.R
@ -2018,7 +2018,7 @@ repair_reference_df <- function(reference_df) {
|
||||
}
|
||||
|
||||
strip_words <- function(text, n, side = "right") {
|
||||
out <- lapply(strsplit(x, " "), function(x) {
|
||||
out <- lapply(strsplit(text, " "), function(x) {
|
||||
if (side %like% "^r" & length(x) > n) {
|
||||
x[seq_len(length(x) - n)]
|
||||
} else if (side %like% "^l" & length(x) > n) {
|
||||
|
Reference in New Issue
Block a user