#' load coco_tables.xml and dimdefs_new.xml from capri directory
#' save coco_tables, dimdef_activity, dimdef_dim5, dimdef_product, dimdef_region
#' @param xml.dir capri xml directory

#' @export
#'

#' @examples
#' \dontrun{
#' load_xml_data(xml.dir= "D:/public/yang/2021/tstrunk/GUI/views")

#'

#'  }

#'

load_xml_data <- function(xml.dir) {

  # coco
  coco.xml <- paste0(xml.dir, "/coco_tables.xml")
  coco_tables<- create_df_from_xml(coco.xml,"//table") %>% as_tibble()


  coco_tables$regionSel <- gsub('Regions and Countries', 'Regions and C', coco$regionSel, ignore.case = TRUE)

  # dimdef: dimdef_new
  dimdef.xml <- paste0(xml.dir, "/dimdefs_new.xml")

  dimdef<- ldply(xmlToList(dimdef.xml), data.frame)
  dimdef$.id  <- factor(dimdef$.id) %>% as_tibble()



  dimdef_product<- dimdef %>% filter(.id == "product")
  dimdef_dim5<- dimdef %>% filter(.id == "dim5")
  dimdef_region<- dimdef %>% filter(.id == "region")
  dimdef_selgroup<- dimdef %>% filter(.id == "selgroup")
  dimdef_activity<- dimdef %>% filter(.id == "activity")


  # dimdef_product<- create_df_from_xml(dimdef.xml,"//product") %>% as_tibble()
  # dimdef_dim5<- create_df_from_xml(dimdef.xml,"//dim5") %>% as_tibble()
  # dimdef_region<- create_df_from_xml(dimdef.xml,"//region") %>% as_tibble()
  # dimdef_selgroup<- create_df_from_xml(dimdef.xml,"//selgroup") %>% as_tibble()
  # dimdef_activity<- create_df_from_xml(dimdef.xml,"//activity") %>% as_tibble()


  if(!dir.exists("data")) {
    dir.create("data")
  }
  save(coco_tables, file = "data/coco_tables.rds")
  save(dimdef_product,      file = "data/dimdef_product.rds")
  save(dimdef_dim5,   file = "data/dimdef_dim5.rds")
  save(dimdef_region,    file = "data/dimdef_region.rds")
  save(dimdef_activity, file = "data/dimdef_activity.rds")

  print(paste0("extracted xml data is saved in ", getwd(), "/data"))

}

#' convert xml to df
#' @param xml xml file
#' @return df
#'

#' @noRd