R/hydrographInteractive.R

In USGS-R/SampleSplitting: Assists users in loading site data and preparing splitting volumes for the lab

#' Function to return hydrographInteractive html to create interactive hydrograph plot through googleVis
#' 
#' This function accepts a merged data frame of ADAPS data for a site/storm event
#' 
#' @param adaps_data_all data frame containing merged ADAPS data for the requested storm event
#' @return hydrographInteractive html object containing code to create googleVis plot
#' @export
#' @examples
#' rdbExample<-rdbExample
#' hydrographInteractive(rdbExample)
hydrographInteractive <- function(adaps_data_all) {
  adaps_data_samples <- adaps_data_all[which(adaps_data_all$p99234>0),c("datetime","p00060")]
  adaps_data_plot <- adaps_data_all[,c("datetime","cum_00045","p00065","p00060")]
  rain_data <- data.frame(adaps_data_all[,c("datetime","cum_00045")],rep("Rain",nrow(adaps_data_all)),rep(NA,nrow(adaps_data_all)),stringsAsFactors=FALSE)
  names(rain_data) <- c("datetime","value","name","label")
  stage_data <- data.frame(adaps_data_all[,c("datetime","p00065")],rep("Stage",nrow(adaps_data_all)),rep(NA,nrow(adaps_data_all)),stringsAsFactors=FALSE)
  names(stage_data) <- c("datetime","value","name","label")
  disch_data <- data.frame(adaps_data_all[,c("datetime","p00060")],rep("Discharge",nrow(adaps_data_all)),rep(NA,nrow(adaps_data_all)),stringsAsFactors=FALSE)
  names(disch_data) <- c("datetime","value","name","label")
  sample_data <- data.frame(adaps_data_samples[,c("datetime","p00060")],rep("Sample Stage",nrow(adaps_data_samples)),paste(adaps_data_samples[,c("p00060")],adaps_data_samples[,c("datetime")],sep=" "),stringsAsFactors=FALSE)
  names(sample_data) <- c("datetime","value","name","label")
  plot_data <- rbind(rain_data,stage_data,disch_data,sample_data)
  hydrographInteractive <- googleVis::gvisAnnotatedTimeLine(plot_data, datevar = "datetime",
                                                            numvar = "value", idvar = "name",
                                                            annotationvar = "label",
                                                            options=list(colors = "['blue','green','red','white']",
                                                                         displayAnnotations = TRUE,
                                                                         legendPosition = "newRow",
                                                                         scaleColumns = "[0,2]", scaleType = 'allfixed',
                                                                         width = "1500px", height = "700px",
                                                                         thickness = "[2,2,2,.5]"))
  
  return(hydrographInteractive)
}