从数据uri获取图像

Question

我试图废弃数据，其中一个数据也是图像，它嵌入数据uri中。我不能用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))

然后，您可以使用其他magick包函数来保存/操作/ etc。