P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 09:11:51 +02:00
Code Releases Activity

(v1.4.0.9029) grey background for backticks, like readr pkg

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-12-01 16:59:57 +01:00
parent 00447c6dc4
commit 4c114ff4b4
25 changed files with 49 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
R/aa_helper_functions.R
View File

@ -296,6 +296,10 @@ word_wrap <- function(...,
# place back spaces
msg <- gsub("*|*", "\n", msg, fixed = TRUE)
# format backticks
msg <- gsub("(`.+?`)", font_grey_bg("\\1"), msg)
msg
}
@ -467,7 +471,7 @@ meet_criteria <- function(object,
stop_if(any(dim(object) == 0),
"the data provided in argument `", obj_name,
"` must contain rows and columns (current dimensions: ",
paste(dim(object), collapse = " x "), ")",
paste(dim(object), collapse = "x"), ")",
call = call_depth)
}
}
@ -606,6 +610,9 @@ font_subtle <- function(..., collapse = " ") {
font_grey <- function(..., collapse = " ") {
try_colour(..., before = "\033[38;5;249m", after = "\033[39m", collapse = collapse)
}
font_grey_bg <- function(..., collapse = " ") {
try_colour(..., before = "\033[48;5;253m", after = "\033[49m", collapse = collapse)
}
font_green_bg <- function(..., collapse = " ") {
try_colour(..., before = "\033[42m", after = "\033[49m", collapse = collapse)
}