如何在echarts4r日历中设置本地月份名称

library(echarts4r)
library(dplyr)

data <- data.frame(date = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day"),
                   value = runif(365))

calendar <- e_charts(data, date) %>%
  e_calendar("value") %>%
  e_visual_map(min = 0, max = 1) %>%
  e_series(type = "heatmap")

custom_formatter <- '
  function (params) {
    var date = params.value[0];
    var value = params.value[1];
    var year = date.getFullYear();
    var month = date.getMonth() + 1;
    var day = date.getDate();
    var monthNames = ["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]; // 设置本地月份名称数组
    return year + " " + monthNames[month - 1] + " " + day + " : " + value;
  }
'

calendar %>% e_tooltip(formatter = JS(custom_formatter))