library(lubridate)
library(tidyverse)
today() # 标准版
## [1] "2020-10-10"
today() %>% format('%B, %d, %Y') # 英文常用格式
## [1] "十月, 10, 2020"
today() %>% format('%Y年%m月%d日') # 英文常用格式
## [1] "2020年10月10日"
library(lubridate)
library(tidyverse)
today() # 标准版
## [1] "2020-10-10"
today() %>% format('%B, %d, %Y') # 英文常用格式
## [1] "十月, 10, 2020"
today() %>% format('%Y年%m月%d日') # 英文常用格式
## [1] "2020年10月10日"