source('../dashboard_source_folder/R/file_export_for_dashboards.R')

mpg %>% 
  count(class, year) %>% 
   hchart( "column", hcaes(x = class, y = n, group = year))%>%
hc_exporting(
    enabled = TRUE, filename="simple_column"
     , formAttributes=list(target="_blank"),
               buttons=list(contextButton=list(
               text="Export", theme=list(fill="transparent"),
                 menuItems=export)) )

library(DT)

iris %>% datatable( extensions = 'Buttons',  options = list(  dom = 'Bfrtip',
                                                                                                 buttons = 
                                                 list( list(
                                                   extend = 'collection',
                                                  buttons = list(list(extend='csv',filename='iris_summary.csv'),
                                                                 list(extend='excel',
                                                                      filename = 'iris_summary.xlsx') ),text="Download"
                                                               
                                                                                                 
))))