R/wizytowka_KukurydzaNaPizzy.R

In byrolew/SuperFarmerMAPA: Super Farmer

#' @title Wizytowka
#'
#' @description Funkcja \code{wizytowka_KukurydzaNaPizzy} generuje wizytowke wybranej
#' strategii w formacie pdf
#'
#' @param strategia Strategia, dla ktorej na byc wygenerowana wizytowka
#' @param sciezka Sciezka do pliku, gdzie ma sie zapisac wizytowka
#' @param powtorz Liczba powtorzen gier
#'
#' @return wizytowka.pdf Wizytowka, pokazujaca statystyki na
#' temat strategii oraz jej dzialanie. Zostaje ona zapisana w folderze \code{inst} wewnatrz
#' pakietu
#'
#' @rdname wizytowka_KukurydzaNaPizzy
#'
#' @author Hanna Kranas, Alicja Gosiewska, Agnieszka Ciepielewska
#'
#' @import gridExtra tidyr grid
#'
#' @export

wizytowka_KukurydzaNaPizzy <- function(strategia, sciezka, powtorz=10000){

  lista <- SuperFarmerMAPA::badaj_gre(strategia,powtorz)

  dane <- unlist(lista[[1]])
  m <- lista[[2]]

  lay <- rbind(c(1,1),
               c(4,5),
               c(4,2),
               c(3,2),
               c(3,2),
               c(3,2),
               c(7,6))

  tytul <- grid::textGrob(gsub("::","\n",deparse(substitute(strategia))), gp=grid::gpar(fontsize=30))
  if(grepl("::",deparse(substitute(strategia)))){
    nazwa <- strsplit(deparse(substitute(strategia)),"::")[[1]][2]
  } else {
    nazwa <- deparse(substitute(strategia))
  }
  p1 <-gridExtra::tableGrob(staty(dane, nazwa),theme = ttheme_kukurydza())
  p2 <- rysuj_gestosc(dane)
  #tutaj zapisujemy plik
  png('rplot.png',width = 1280, height = 1280, res = 200)
  kolowy(m)
  dev.off()
  # tu go wczytujemy
  p3_tytul <- grid::textGrob("Przeplyw wartosci w krolikach w wymianach", gp=grid::gpar(fontsize=13), just = "center")
   p3 <- rasterGrob(readPNG('rplot.png'))
  p3_opis <- grid::textGrob("Wykres wizualizuje wymiany dokonywane przez strategie.\n
Jednostka wykresu jest wartosc jednego krolika.\n
Dlugosc wycinka odpowiadajacego zwierzeciu pokazuje udzial jego wartosci\n
we wszystkich wymianach (caly okrag).\n
Przeplywy miedzy wycinkami pokazuja, na co i jak wartosciowe byly wymiany zwierzecia\n
o odpowiednim kolorze.",
                            gp=grid::gpar(fontsize=10, lineheight	= 0.5),
                            x = unit(0, "npc"),
                            y = unit(0.7, "npc"),
                            just = "left")
  p_podpis <- grid::textGrob("grupa KukurydzaNaPizzy: Agnieszka Ciepielewska, Alicja Gosiewska, Hanna Kranas", gp=grid::gpar(fontsize=10), just = "center")
  #nazwa_pliku <- paste0("KukurydzaNaPizzy_Wizytowka_",gsub('\"',"",gsub("::","_",gsub("\\.","",deparse(substitute(strategia))))),".pdf")
  pdf(sciezka, width=11.69, height=8.27)
  grid.arrange(tytul,p3,p2,p1,p3_tytul,p3_opis,p_podpis,layout_matrix = lay)
  dev.off()
}