从sys.time获取数字

Question

是否有一种更有效/更优雅的方法来执行以下操作，其中我连接Sys.time()输出

输出中的所有数字

x <- as.character(Sys.time())
paste0(substr(x,0,4),substr(x,6,7),substr(x,9,10),substr(x,12,13),substr(x,15,16),substr(x,18,20))

它可能包括粘贴和崩溃，但不知道如何做...

Answer 1

您可以删除非数字字符：

gsub("[^0-9]","",x)
[1] "20120910151242"