#' extract supply details with selected activities.
#' @param region_list vector character
#' @param activitySel  character
#' @param scenario_list Name of the scenario
#' @param folder a directory
#' @return supply details with longname
#'
#' @export
#'
#'
extract_supply_details_longname <- function(region_list = "EU27yr19", dimdef_activity, activitySel = "Activities", scenario_list, folder){

  get.acitivity <- get_activitySel(activitySel, dimdef_activity) %>% select(key, itemName)

  supply_details <- caprir::convert_supply_details(region_list,
                                                      product_list = get.acitivity$key,
                                                      scenario_list,
                                                      folder)

  selected <- supply_details %>%
    # left_join(product_list, by= c("product" = "code")) %>%
    left_join(get.acitivity, by= c("product" = "key"), keep = TRUE) %>%
    # mutate( Commodities = label) %>%
    distinct( .keep_all = TRUE) %>%
    # mutate( Commodities = if(label == "Other animals")  {code} else Commodities)%>%
    mutate( Commodities = case_when(
      itemName == "Other animals" ~ paste0(itemName, " (", key, ")" ),
      itemName != "Other animals" ~ as.character(itemName)
    )) %>%
    select(-itemName, -region, -year, -product, -key)

  return(selected)
}