Metrics Calculations for plots

[jonbry]

The metrics calculation for the water level plot doesn't work and it looks like it's an issue with marsMetricsTable. For example, ggplot_build isn't loaded from the ggplot2 namespace, which is at least 2 years old.

pwdgsi/R/mars_plotting_functions.R

Lines 571 to 592 in 63bc69b

	# Add metrics
	if(metrics_show == TRUE){
	#set missing values to ""
	if( missing(obs_draindown_hr) ){obs_draindown_hr <- ""}
	if( missing(sim_draindown_hr) ){sim_draindown_hr <- ""}
	if( missing(obs_infil_inhr) ){obs_infil_inhr <- ""}
	if( missing(sim_infil_inhr) ){sim_infil_inhr <- ""}
	if( missing(obs_RSPU) ){obs_RSPU <- ""}
	if( missing(sim_RSPU) ){sim_RSPU <- ""}
	if( missing(obs_overtopping) ){obs_overtopping <- ""}
	if( missing(sim_overtopping) ){sim_overtopping <- ""}
	level_plot %<>% marsMetricsTable( obs_RSPU = obs_RSPU,
	obs_infil_inhr = obs_infil_inhr,
	obs_draindown_hr = obs_draindown_hr,
	obs_overtopping = obs_overtopping,
	sim_RSPU = sim_RSPU,
	sim_infil_inhr = sim_infil_inhr,
	sim_draindown_hr = sim_draindown_hr,
	sim_overtopping = sim_overtopping)
	}

Do we need this in the level plot? Do we need the metrics calc function?