здесь мое решение, после следа и ошибки я нашел целевой jpg url в головной части
a = doc %>% html_nodes("meta") %>% html_attrs
a = doc %>% html_nodes("meta") %>% html_attr("content") %>% na.omit
index = a %>% stringr::str_detect(".jpg") %>% which
a[index]
снимок экрана результатов