## Error in `library()`:
## ! there is no package called 'lubridate'
## Error in `library()`:
## ! there is no package called 'tidyverse'
## Error in `today()`:
## ! could not find function "today"
## Error in `today() %>% format("%B, %d, %Y")`:
## ! could not find function "%>%"
## Error in `today() %>% format("%Y年%m月%d日")`:
## ! could not find function "%>%"