Как получить сокращение месяца прописными буквами с помощью функции R `as.Date`

Question

Кодовое значение %b в функции as.Date() дает сокращенный месяц названия заголовка (например, январь).

format(as.Date('2001-01-15'), format = '%b/%d/%Y')
#> [1] "Jan/15/2001"

Желаемый вывод - сокращение всего месяца прописными буквами (например, JAN):

JAN/15/2001

Как мне этого добиться?