R/lim.R

In qkdrk777777/Ducj:

#' lim j.h
#'
#' @return overlab of plot
#' @export
qq<-function(){

  library(DUcj)
package(httr)
package(rvest)
h <- html('https://www.google.co.kr/search?q=%EA%B7%80%EC%8B%A0&rlz=1C1NHXL_koKR781KR781&source=lnms&tbm=isch&sa=X&ved=0ahUKEwiz8a6yofraAhXLJJQKHRalCvEQ_AUICigB&biw=958&bih=635')
imgs <- html_nodes(h, 'img')
img.src <- html_attr(imgs, 'src')
for (src in 2:length(img.src)){
  res <- GET(img.src[src])
  writeBin(content(res, 'raw'), sprintf(paste0('DUcj_',src,'.jpg')))
}
}