R/filter_total.R

In unimi-dse/ea34b421: Cost of Living Comparison

#' Total Cost of living Calculator
#'
#' @param data Reflects back sum of Total Cost of living of the selected city in data table
#'
#' @return  Sum of cost of living
#' @export
#'
#' @examples
filter_total <-  function (data) {reactive({total %>%
    filter(citycostanalysis::city %in% input$City)})
}