#' caluculate_values
#'
#' Calculate values
#'
#' @param w.use dataframe, the water use data
#'
#' @export
#' @importFrom dplyr mutate
#'
#'
#' @examples
#' w.use <- wUseSample
#' w.use.new <- calculate_values(w.use)
calculate_values <- function(w.use){
calculation.formula <- calculation.formula
calculation.formula$CALCULATION <- gsub("-",".",calculation.formula$CALCULATION)
calculation.formula$EXPANDEDFORMULA <- gsub("-",".",calculation.formula$EXPANDEDFORMULA)
make.index <- which(!(gsub("-",".",calculation.formula$CALCULATION) %in% names(w.use)))
columns.to.make <- calculation.formula$CALCULATION[make.index]
formulas.to.use <- calculation.formula$EXPANDEDFORMULA[make.index]
g1 = function(df, s){
q = quote(mutate(df, z = s))
eval(parse(text=sub("z = s", s, deparse(q))))
}
wUseNew <- w.use
for(i in 1:length(columns.to.make)){
formula.here <- formulas.to.use[i]
wUseNew <- tryCatch({
g1(wUseNew, paste(columns.to.make[i], "=", formula.here))
},
error = function(e){
wUseNew
})
}
return(wUseNew)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.