r - 如何在函数的返回输出结束时向用户显示消息？

Question

我正在创建一个导入 .txt 的函数文件并返回 data.frame .有时我想向用户显示一条消息以配合数据。我的问题是通过在函数体中包含消息，它显示在数据之前，并且在一个大 data.frame 中。有很多行，用户可能永远不会看到它。

例如，给定:

foo=function(cars){
  message('Pay attention to me!')
  return(cars)
}

如果用户输入:

foo(cars)

该函数将显示我的消息，但仅在返回的对象之前(在这种情况下，数据 cars 来自 R 的 base 包。如何在返回的 message() 的底部显示我的 data.frame 内容？

我也尝试过返回消息，但无济于事:

foo=function(cars){
  return(cars,message('help!'))
}

我注意到 warning()和 stop()函数都在 data.frame 的末尾显示它们的文本，但我想显示的消息既不是警告也不是错误，而是仅供引用。

为了澄清，理想情况下，该消息将在调用函数时显示(无论输出是否分配给变量名称)，但不会在每次使用结果对象时显示。 foo(cars)应该显示消息，正如 obj=foo(cars) .但只是 obj不应该。

Answer 1

这不是一个直接的答案，但我认为如果用户看到消息很重要，那么警告毕竟是合适的。或者，您可以暂停显示，让用户有机会在固定的时间内阅读消息:

foo=function(cars){
  message("pay attention to me!")
  Sys.sleep(2)
  return(cars)
}

或直到用户确认:

foo=function(cars){
  x <- readline("pay attention to me!\n(press enter to continue)")
  return(cars)
}