Mejoramiento genético de cultivos para el futuro

IV Seminario Internacional de Inocuidad, Seguridad y Productividad Alimentaria



1
2
list.files(pattern = "banner", full.names = T) %>% 
  include_graphics()

1
2
3
4
5
6
7
8
9
#> convert PDF to PNG

library(magick)

path <- "C:/Users/flavjack/git/lozanoisla/content/lectures/2022-11-24-UNALM/"

banner <- file.path(path, "Semana Académica.pdf") %>% 
  image_read_pdf(pages = 2) %>% 
  image_write(file.path(path, "banner.png"))