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

new rsi_translation

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2022-10-22 22:00:15 +02:00
parent d10651eb26
commit c2801ba7a1
43 changed files with 5290 additions and 7300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/aa_helper_functions.R
View File

@ -1083,8 +1083,7 @@ try_colour <- function(..., before, after, collapse = " ") {
font_black <- function(..., collapse = " ") {
before <- "\033[38;5;232m"
after <- "\033[39m"
theme_info <- import_fn("getThemeInfo", "rstudioapi", error_on_fail = FALSE)
if (!is.null(theme_info) && isTRUE(theme_info()$dark)) {
if (isTRUE(AMR_env$is_dark_theme)) {
# white
before <- "\033[37m"
after <- "\033[39m"
@ -1094,8 +1093,7 @@ font_black <- function(..., collapse = " ") {
font_white <- function(..., collapse = " ") {
before <- "\033[37m"
after <- "\033[39m"
theme_info <- import_fn("getThemeInfo", "rstudioapi", error_on_fail = FALSE)
if (!is.null(theme_info) && isTRUE(theme_info()$dark)) {
if (isTRUE(AMR_env$is_dark_theme)) {
# black
before <- "\033[38;5;232m"
after <- "\033[39m"
@ -1191,7 +1189,7 @@ progress_ticker <- function(n = 1, n_min = 0, print = TRUE, ...) {
# so we use progress::progress_bar
# a close() method was also added, see below this function
pb <- progress_bar$new(
format = "(:spin) [:bar] :percent (:current/:total,:eta)",
format = "[:bar] :percent (:current/:total,:eta)",
total = n
)
} else {