perezp44

library(httr)
library(RCurl)
library(XML)

df <- data.frame(artist = c('Led Zeppellin', 'Adele'), song = c('Rock´n roll', 'Hello'), stringsAsFactors = F)

make.querrye <- function(xx) {
  names_ok <- gsub(" ", "&", xx)
  names_ok2 <- paste("\'", names_ok, "\'", sep = '')
 querrye <- paste("http://api.chartlyrics.com/apiv1.asmx/SearchLyricDirect?artist=", names_ok[1],"&song=",  names_ok[2], sep='')

perezp44

my_fun <- function(aa, bb){
aa + bb
}

perezp44

#- script para hacer un resize de las imagenes de los posts

my_thumbnail <- here::here("posts", "thumbnails", "thumbnail_01.png")

img <-  magick::image_read(my_thumbnail)
img_resized <- img |> magick::image_scale("740x426!")

#- guardo la foto reescalada a 640x427
magick::image_write(img_resized, my_thumbnail)