beamaSankey: Plot Sankey Diagrams

#setwd('R:/packages/beamaSankey/')
#beamaSankey::SK$new()$view_groups()
#beamaSankey::SK$new()$view_groups(F)
#abc <- beamaSankey::SK$new(grp='wma_cons_ytd',yr=2016,mth=2)$get_data()
#abc <- beamaSankey::SK$new(grp='uk_orgalime_jobs',yr=2015,mth=6)$get_data()
#beamaSankey::SK$new(grp='uk_orgalime_jobs',yr=2015,mth=6)$get_data()
#beamaSankey::SK$new(grp='wma_cons_ytd',yr=2016,mth=2)$plot()

#abc <- beamaSankey::SK$new(grp='eng_jobs',yr=2015,mth=6)$get_data();str(abc)
#beamaSankey::SK$new(grp='eng_jobs',yr=2015,mth=6)$plot()

#beamaSankey::SK$new(grp='plus_group_private',yr=2015,mth=12)$plot()

#beamaSankey::SK$new(grp='uk_orgalime_jobs',yr=2015,mth=6)$plot()
#beamaSankey::SK$new(grp='uk_orgalime_turnover',yr=2015,mth=12)$plot()

#beamaSankey::SK$new(grp='wma_cons_gbp_ytd',yr=2016,mth=2)$plot()

#beamaSankey::SK$new(grp='uk_construction_regional',yr=2014,mth=12)$plot()

#beamaSankey::SK$new(grp='bluebook_27',yr=2015,mth=12)$plot()
#beamaSankey::SK$new(grp='bluebook_27',yr=2015,mth=12)$get_data()
# beamaSankey::add_row('uk_orgalime_turnover',2015,12,'Orgalime =  £ 108.3 billion','NA','NA','NA',0)
# beamaSankey::remove_row('uk_orgalime_turnover',2015,12,'Orgalime =  £ 108.3 billion')
# beamaSankey::add_row('uk_orgalime_turnover',2015,12,'Orgalime =  108.3 GBP billion','NA','NA','NA',0)

# beamaSankey::SK$new(grp='repd_sites',yr=2016,mth=2)$plot(output_filename="R:/packages/bnetworks/inst/networks/mainapp/www/renewables.html")
# beamaSankey::SK$new(grp='repd_capacity',yr=2016,mth=2)$plot(output_filename="R:/packages/bnetworks/inst/networks/mainapp/www/renewables_mgw.html")

#beamaSankey::remove_group('dukes_det_3q2',2015,91)


#beamaSankey::SK$new(grp='dukes_13y',yr=2014,mth=12)$plot()

#beamaSankey::SK$new(grp='dukes_13q',yr=2015,mth=3)$plot()
#beamaSankey::SK$new(grp='dukes_13q',yr=2015,mth=6)$plot()
#beamaSankey::SK$new(grp='dukes_13q',yr=2015,mth=9)$plot()

#beamaSankey::SK$new(grp='dukes_det_13y',yr=2014,mth=12)$plot()
#beamaSankey::SK$new(grp='dukes_det_3q2',yr=2015,mth=9)$plot('R:/packages/bnetworks/inst/networks/mainapp/www/dukes.html')
#beamaSankey::SK$new(grp='ewa_con_vol_yr',yr=2015,mth=12)$plot()
#beamaSankey::SK$new(grp='ewa_con_val_yr',yr=2015,mth=12)$plot()

# beamaSankey::SK$new("repd_capacity",2015,7)$get_data()
# beamaSankey::SK$new()$view_groups()

#beamaSankey::SK$new(grp='nuclear_prod',yr=2014,mth=12)$plot()
#beamaSankey::SK$new(grp='nuclear_domestic',yr=2014,mth=12)$plot()
# beamaSankey::remove_group('nuclear_domestic',2014,12)
# beamaSankey::SK$new('nuclear_domestic',2014,12)$get_data()
#
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'CONSUMABLES = 7,199,250 kg', 'NA','NA', 'NA',0)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'ELECTRODES = 7.3%', '0','1', '526425.7',1)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'C/ C-Mn = 6.2%', '1','2', '446551.9',2)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Other Electrodes = 1.1%', '1','3', '79873.8',3)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'WIRES = 92.7%', '0','4', '6672824.6',4)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Solid MIG/MAG = 73.8%', '4','5', '5314686',5)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Solid TIG wire   = 1.5%', '4','6', '111006.5',6)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Solid Sub-Arc wires & Strip  = 4.8%', '4','7', '344142.3',7)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Sub-arc fluxes = 8.5%', '4','8', '612449',8)
# beamaSankey::addrow( 'wma_cons_ytd',2016, 3,'Cored Wire = 4.0%', '4','9', '290540.9',9)


# beamaSankey::add_row('repd_sites_summary',2016,8,'TOTAL SITES = 3,245','NA','NA','NA',0)
# beamaSankey::add_row('repd_sites_summary',2016,8,'Application Submitted = 7.6%','0','1','246',1)
# beamaSankey::add_row('repd_sites_summary',2016,8,'Awaiting Construction = 23.5%','0','2','764',2)
# beamaSankey::add_row('repd_sites_summary',2016,8,'Under Construction = 6.9%','0','3','225',3)
# beamaSankey::add_row('repd_sites_summary',2016,8,'Operational = 61.9%','0','4','2010',4)
#
# beamaSankey::add_row('repd_capacity_summary',2016,8,'TOTAL CAPACITY = 64,288 MW','NA','NA','NA',0)
# beamaSankey::add_row('repd_capacity_summary',2016,8,'Application Submitted = 15.3%','0','1','9826',1)
# beamaSankey::add_row('repd_capacity_summary',2016,8,'Awaiting Construction = 35.1%','0','2','22567',2)
# beamaSankey::add_row('repd_capacity_summary',2016,8,'Under Construction = 9.3%','0','3','5991',3)
# beamaSankey::add_row('repd_capacity_summary',2016,8,'Operational = 40.3%','0','4','25904',4)

 # beamaSankey::SK$new(grp='repd_capacity_summary',yr=2016,mth=8)$plot("R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_mgw_sum.html")
 # beamaSankey::SK$new(grp='repd_sites_summary',yr=2016,mth=8)$plot("R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_sites_sum.html")



# beamaSankey::SK$new(grp='repd_capacity',yr=2016,mth=5)$plot("R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_mgw.html")
# beamaSankey::SK$new(grp='repd_sites',yr=2016,mth=5)$plot("R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_sites.html")

# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Engineering(25-28) = 682,000','NA','NA','NA',0)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Metals = 42.1%','0','1','287',1)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Electronics = 20.5%','0','2','140',2)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Electrical = 12.3%','0','3','84',3)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Mechanical = 25.1%','0','4','171',4)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Male = 79.8.0%','1','5','239',5)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Female = 20.2.0%','1','6','48',6)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Fulltime = 90.2%','5','7','521',7)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'Partime = 9.8%','5','8','25',8)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','2','5','103',9)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','2','6','37',10)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','3','5','60',11)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','3','6','24',12)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','4','5','142',13)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','4','6','29',14)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','6','7','94',15)
# beamaSankey::add_row('uk_orgalime_jobs',2016,6,'NA','6','8','37',16)
#
#
#
# beamaSankey::SK$new(grp='uk_orgalime_jobs',yr=2016,mth=6)$plot()
#beamaSankey::remove_group('repd_sites_summary',2016,10)

# beamaSankey::add_row('repd_sites_summary',2016,10,'TOTAL SITES (October 2016) = 3,257','NA','NA','NA',0)
# beamaSankey::add_row('repd_sites_summary',2016,10,'Application Submitted = 7.1%','0','1','231',1)
# beamaSankey::add_row('repd_sites_summary',2016,10,'Awaiting Construction = 22.9%','0','2','745',2)
# beamaSankey::add_row('repd_sites_summary',2016,10,'Under Construction = 6.9%','0','3','225',3)
# beamaSankey::add_row('repd_sites_summary',2016,10,'Operational = 63.1%','0','4','2056',4)
#
# beamaSankey::SK$new(grp='repd_sites_summary',yr=2016,mth=10)$plot('R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_sites_sum.html')
#
# beamaSankey::add_row('repd_capacity_summary',2016,10,'TOTAL CAPACITY (October 2016) = 64,062 MW','NA','NA','NA',0)
# beamaSankey::add_row('repd_capacity_summary',2016,10,'Application Submitted = 14.4%','0','1','231',1)
# beamaSankey::add_row('repd_capacity_summary',2016,10,'Awaiting Construction = 35.1%','0','2','745',2)
# beamaSankey::add_row('repd_capacity_summary',2016,10,'Under Construction = 9.6%','0','3','225',3)
# beamaSankey::add_row('repd_capacity_summary',2016,10,'Operational = 40.8%','0','4','2056',4)
# beamaSankey::SK$new(grp='repd_capacity_summary',yr=2016,mth=10)$plot('R:/packages/bnetworks/inst/networks/bnetworks1/www/renewables_mgw_sum.html')


#beamaSankey::remove_group('tracker_wt',2016,12)
# beamaSankey::add_row('tracker_wt',2016,12,'Total Tracker = 100%','NA','NA','NA',0)
# beamaSankey::add_row('tracker_wt',2016,12,'Wiring Accessories = 40%','0','1','40',1)
# beamaSankey::add_row('tracker_wt',2016,12,'Heating and Hot Water = 35%','0','2','35',2)
# beamaSankey::add_row('tracker_wt',2016,12,'Welding = 5%','0','3','5',3)
# beamaSankey::add_row('tracker_wt',2016,12,'Official = 20%','0','4','20',4)
# beamaSankey::add_row('tracker_wt',2016,12,'Plusgroup = 12.0%','1','5','12',5)
# beamaSankey::add_row('tracker_wt',2016,12,'Single Phase = 12.6%','1','6','12.6',6)
# beamaSankey::add_row('tracker_wt',2016,12,'Three Phase = 8.9%','1','7','8.9',7)
# beamaSankey::add_row('tracker_wt',2016,12,'Engineering Systems = 2.2%','1','8','2.2',8)
# beamaSankey::add_row('tracker_wt',2016,12,'Plastic Electrical Sys = 3.9%','1','9','3.9',9)
# beamaSankey::add_row('tracker_wt',2016,12,'Powertrack = 0.4%','1','10','0.4',10)
# beamaSankey::add_row('tracker_wt',2016,12,'Water Treatment = 6.9%','2','11','6.9',11)
# beamaSankey::add_row('tracker_wt',2016,12,'Heating Controls = 11.9%','2','12','11.9',12)
# beamaSankey::add_row('tracker_wt',2016,12,'Water Safety = 7.8%','2','13','7.8',13)
# beamaSankey::add_row('tracker_wt',2016,12,'Mechanical Ventilation = 4.6%','2','14','4.6',14)
# beamaSankey::add_row('tracker_wt',2016,12,'Underfloor = 3.8%','2','15','3.8',15)
# beamaSankey::add_row('tracker_wt',2016,12,'Consumables = 3.6%','3','16','3.6',16)
# beamaSankey::add_row('tracker_wt',2016,12,'Equipment = 1.4%','3','17','1.4',17)
# beamaSankey::add_row('tracker_wt',2016,12,'Electrical = 4.0%','4','18','4',18)
# beamaSankey::add_row('tracker_wt',2016,12,'Electronic = 2.0%','4','19','2',19)
# beamaSankey::add_row('tracker_wt',2016,12,'Mechanical = 2.0%','4','20','2',20)
# beamaSankey::add_row('tracker_wt',2016,12,'Repairs = 2.0%','4','21','2',21)
# beamaSankey::add_row('tracker_wt',2016,12,'Metals = 2.0%','4','22','2',22)
# beamaSankey::add_row('tracker_wt',2016,12,'Construction = 6.0%','4','23','6',23)
# beamaSankey::add_row('tracker_wt',2016,12,'Boiler Sales = 2.0%','4','24','2',24)
#

# beamaSankey::SK$new(grp='tracker_wt',yr=2016,mth=12)$plot('R:/shiny/beama/bmonitor/www/wts.html')
# beamaSankey::SK$new(grp='tracker_wt',yr=2016,mth=12)$get_data()

#beamaSankey::SK$new(grp='uk_cons_qtr',yr=2016,mth=9)$plot()