matrix.R

                    subsection = title
                    n_page = df_page$n[nrow(df_page)] + 1
                    df_page = bind_rows(
                        df_page,
                        tibble(section=section,
                               subsection=subsection,
                               n=n_page))
                }
                
                # If there is a foot note
                if (foot_note) {
                    footName = paste('tableau récapitulatif de ',
                                     type, sep='')
                    
                    if (is.null(df_page)) {
                        n_page = n_loop
                    }
                    
                    foot = foot_panel(footName,
                                      n_page,
                                      resources_path,
                                      logo_dir,
                                      AEAGlogo_file, INRAElogo_file,
                                      FRlogo_file, foot_height)
                    
                    # Stores the map, the title and the colorbar
                    # in a list
                    P = list(mat, foot)
                    LM = matrix(c(1,
                                  2),
                                nrow=2, byrow=TRUE)
                } else {
                    foot_height = 0
                    # Stores the map, the title and the colorbar
                    # in a list
                    P = list(mat)
                    LM = matrix(c(1),
                                nrow=1, byrow=TRUE)
                }
                id_foot = 2
                
                LMcol = ncol(LM)
                LMrow = nrow(LM)
                
                LM = rbind(rep(99, times=LMcol),
                           LM, rep(99, times=LMcol))
                LMrow = nrow(LM)
                LM = cbind(rep(99, times=LMrow),
                           LM, rep(99, times=LMrow))
                LMcol = ncol(LM)
                
                margin_size = 0.5

                row_height = (height - 2*margin_size - foot_height) / (LMrow - 3)

                Hcut = LM[, 2]
                heightLM = rep(row_height, times=LMrow)
                heightLM[Hcut == id_foot] = foot_height
                heightLM[Hcut == 99] = margin_size

                col_width = (width - 2*margin_size) / (LMcol - 2)
                
                Wcut = LM[(nrow(LM)-1),]
                widthLM = rep(col_width, times=LMcol)
                widthLM[Wcut == 99] = margin_size

                # Arranges the graphical object
                plot = grid.arrange(grobs=P, layout_matrix=LM,
                                    heights=heightLM, widths=widthLM)

                # Saving
                ggsave(plot=plot, 
                       path=outdirTmp,
                       filename=paste(outnameTmp,
                                      '_', type,
                                      '_', rh,
                                      iMat, sep=''),
                       device='pdf',
                       width=width, height=height,
                       units='cm', dpi=dpi)            
            }
        }           
    }
    return (df_page)
}