我正在编写一个简单的函数,从用户读取多个文件,然后它打印到终端(print
)文件名和旁边的是或否,如果它是有效/无效。我想使用x/✓
符号
然而,问题是,由于检查符号不是ascii格式,R cmd抛出警告。我尝试了几种方法(charToRaw, intToUtf8, symbol(“326”)
),但不是在终端上简单打印。例如:
Df <- data.frame(file = myfiles, status = “x”)
Df$status[1]= “✓”
print (Df)
任何想法?由于
cli
包提供了一种使用cli_alert_success
和cli_alert_danger
打印这些内容的方法。大概,您需要进行一些更复杂的检查,以确定文件是否有效。将其存储为布尔值,而不是显式字符。
Df <- data.frame(file = myfiles, isValid = myValidityCheckFx(myfiles))
purrr::walk2(
Df$file, Df$isValid,
~if(.y) cli::cli_alert_success(.x) else cli::cli_alert_danger(.x)
)