假设我有一个想要在R中运行的简单函数。如果该函数运行成功,我希望R控制台打印一条类似于"Function Ran successfully“的消息,如果没有,R将使用其正常的错误或警告消息来解释该函数的错误所在。有没有办法做到这一点?
发布于 2020-05-13 12:06:59
您可以使用message
、cat
或print
。如果您使用message
,其他人可以选择调用用suppressMessages()
包装的函数。无论发生什么,cat
都会打印到终端。此外,如果您想要使用\n
,则必须以cat
结尾。
消息以红色打印。
message("Function Ran Successfully")
cat("Function Ran Successfully\n")
如果您想要彩色消息,请使用crayon
包
cat(crayon::green$bold("Function Ran Successfully\n"))
如果您想打印出一个结构,而不仅仅是一个字符串,那么print
特别有用。
print(head(iris, 2))
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3.0 1.4 0.2 setosa
发布于 2020-05-13 12:32:13
fun <- function(num) {
#code here
num = as.integer(readline(prompt="Enter a number: "))
if (num>0){ print("positive number")}
else if (num<0){ print("negative number")}
else { print("zero")}
}
fun()
运行fun()
并在控制台中输入值。
这是一个带有not循环的例子,如果你正在创建自己的函数(在其他情况下除了这个词之外),可能这就是你想要的,如果不是,让我知道,我会删除这个答案。
https://stackoverflow.com/questions/61766098
复制相似问题