scripts/make_sumtable.R

In aigorahub/aigoraRPDashboard: What the Package Does (One Line, Title Case)

make_sumtable <- function(data,
                          selected_products,
                          selectedAttributes){
  res <- data %>%
    dplyr::filter(Product_Name %in% unlist(unique(selected_products)),
           Attribute_Name %in% unlist(unique(selectedAttributes))) %>%
    dplyr::group_by(Study, Product_Name, Attribute_Name) %>%
    dplyr::summarize(Mean_scores = round(mean(Attribute_Value), 2)) %>%
    dplyr::ungroup()
}