library('pacman')
p_load('camsRad')
#p_load('solaR')

cams_set_user('martin@martinbrien.com') # limited to 40 requests per day
camsrad = cams_get_mcclear(
	             lat=52.23,lng=0.144, # charing cross // Europe, Africa, Atlantic Ocean, Middle East (-66° to 66° in both latitudes and longitudes)
                     time_step = "PT01H", # PT01M, PT15M, PT01H, P01D, P01M, default = PT01H
		     date_begin='2018-01-01',date_end='2018-12-31') # Time coverage is 2004-02-01 up to 2 days ago.

# create new dataframe with correct names
sol = data.frame(timestamp = camsrad$timestamp, 
		 G0=camsrad$'Clear sky GHI', 
		 B0=camsrad$'Clear sky BHI', 
		 D0=camsrad$'Clear sky DHI')

write.csv(sol,file="sol.csv",quote = FALSE,row.names=FALSE)
saveRDS(sol, file="sol.Rda")