R/figure_number.R

In puigjos/PtxGenerator: PAckage to generate pptx automatically

figure_number <- function(slide, GeneralName, colors,
                          blank_colors, number, allnumber = T){
  sl_sm <- get_slide_summary(slide)
  n = length(colors)
  j = 0
  p_nm = paste0(GeneralName, 1:n)

  id_ <- sl_sm$id[sl_sm$ph_label %in% p_nm]

  for(i in 1:n){

    if(number == 0){
      j = 1
    }
    if(j == 1){
      color_shape(slide = slide, office_id = id_[i], fill = blank_colors)
      next
    }
    if(number == i){
      j = 1
      color_shape(slide = slide, office_id = id_[i], fill = colors[i])
      next
    }
    if(allnumber){
      color_shape(slide = slide, office_id = id_[i], fill = colors[i])
    }else{
      color_shape(slide = slide, office_id = id_[i], fill = blank_colors)
    }

  }
  slide$fortify_id()$save()
  return(slide)
}