#' get Farm Supply details activity list
#' @param activitySel Crops, Cereals, Activities, anyThing, Oilseeds, Crop aggregates, Aggregates
#' @return supply_activity_list
#'

get_activitySel <- function(activitySel = "Activities", dimdef_activity) {
  supply_activity_list <- dimdef_activity %>% filter(grepl(activitySel, sel))
  return(supply_activity_list)
}