从粘贴打印时间戳

Question

我想要一个小助手为每个调试语句添加一个时间戳。我不想使用记录器库。这是尝试：

tp = function(...) {
  ts = format(Sys.time(), "%d.%m.%Y %H:%M:%OS")
  m = paste('[',ts,']',str(...))
  print(m)
}

当调用助手 tp 来打印 data.frame 的列时：

 tp(names(df))

预期的输出是这样的：

[ 04.03.2020 19:35:00.345 ]  country state day dt confirmed recovered deaths

但实际输出是：

 chr [1:7] "country" "state" "day" "dt" "confirmed" "recovered" "deaths"
[1] "[ 04.03.2020 19:35:00.345 ] "

注意我添加了

 str(...)

因为否则输出是每列元素一行。相反，输出应该保持打印在一行上：也许通过某种方式加入集合项目？我可以使用一些帮助来清理它。

Answer 1

您需要将省略号参数粘贴到一个字符串中。

tp = function(...) {
  ts = format(Sys.time(), "%d.%m.%Y %H:%M:%OS")
  m = paste('[', ts, ']', paste(..., collapse = " "))
  print(m)
}

df <- data.frame("country" = NA,
                 "state" = NA,
                 "day" = NA)

tp(names(df))
#> [1] "[ 05.03.2020 08:10:58 ] country state day"

Answer 2

您可能实际上想要cat，而不是print。

然后你可以定义：

tp = function(...) {
  cat(format(Sys.time(), "[ %d.%m.%Y %H:%M:%OS ]"), ...)
  return(invisible())
}

tp(names(df))
# [ 05.03.2020 12:03:13.015595 ] country state day

注意缺少[1] "..."

FWIW R 内置了date()，格式不同但更简洁：

cat(date())
# Thu Mar  5 04:04:37 2020

或者，如果您不需要亚秒级精度并且可以使用 ISO 格式，format = '[ %F %T ]' 也更简洁。

您也可以考虑使用%z 和/或format.POSIXct 的tz 参数在您的日志中传达系统时区。