Obtention d'une image à partir de données uri

Question

J'essaie de supprimer des données et l'une des données est également l'image, qui est incorporée dans l'uri de données. Je ne peux pas comprendre chaud pour faire cela avec r.

library(rvest) 
webUrl<-"https://portaltramites.inpi.gob.ar/Marcas/Logo?Acta=3363531" 

imgscr<- read_html(webUrl) %>% 
html_node(xpath = '//*/img') %>% 
html_attr('src') 

img<-gsub("data:image/gif;base64,","",imgsrc, fixed=true) 

head(img) 

#now I'm stuck 

Answer 1

library(rvest) 
library(openssl) 
library(magick) 

pg <- read_html("https://portaltramites.inpi.gob.ar/Marcas/Logo?Acta=3363531") 

img <- html_nodes(pg, "img") 

img_src <- html_attr(img, "src") 
img_src <- gsub("^data.*base64,", "", img_src) 

image_read(base64_decode(img_src)) 

Vous pouvez alors utiliser d'autres fonctions de package magick pour sauvegarder/manipuler/etc.