从数据 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 包函数来 save/manipulate/etc。