# NOT RUN {
highchart() %>%
hc_xAxis(categories = month.abb) %>%
hc_add_series(name = "Tokyo", data = sample(1:12)) %>%
hc_exporting(
enabled = TRUE, # always enabled
filename = "custom-file-name"
)
# }
Run the code above in your browser using DataLab