#' Taylor Diagram
#'
#' Generate Taylor diagram from 'plotrix' package.
#' @param subToHUC. Zoo object to plot.
#' @param cbPalette. Color values.
#' @export
#' @return Numeric vector.
#' @examples
#' shinyPlot_HUC_Taylor_Diagram()
shinyPlot_HUC_Taylor_Diagram <- function(default. = FALSE,
subToHUC. = subToHUC,
cbPalette. = cbPalette,
...){
if (default.){
frame()
}else{
if (ncol(subToHUC.) > 1){
plotrix::taylor.diagram(ref = subToHUC.[,1],
model = subToHUC.[,2],
col = cbPalette.[2],
pcex = 2,
pos.cor = FALSE,
mar = c(5,7,5,7))
}else{
frame()
text(0.5,0.5,"Two or more datasets required for Taylor diagrams", col = 'red')
}
if (ncol(subToHUC) > 2){
for (i in 3:ncol(subToHUC.)){
plotrix::taylor.diagram(ref = subToHUC.[,1],
model = subToHUC.[,i],
add = TRUE,
col = cbPalette.[i],
pos.cor = FALSE,
pcex = 2)
}
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.