Вы можете попробовать следующий код. Я не могу ручаться за совместимость с браузером, поэтому вам нужно будет это проверить.
function testImage(URL) {
var tester=new Image();
tester.onload=imageFound;
tester.onerror=imageNotFound;
tester.src=URL;
}
function imageFound() {
alert('That image is found and loaded');
}
function imageNotFound() {
alert('That image was not found.');
}
testImage("http://foo.com/bar.jpg");
И мои симпатии к боссу, устойчивому к jQuery!
Вы можете вручную указать положение тега, используя числовой вектор с позициями x и y (plot.tag.position
). c(x, y)
должно быть между 0 и 1. c(0, 0)
помещает тег в «левый нижний угол», а c(1, 1)
помещает тег в «верхний правый угол».
library(ggplot2)
ggplot(mtcars, aes(cyl, mpg)) +
geom_line() +
labs(title = "US unemployment rate",
subtitle = "(%)",
caption = "Source: St. Louis Fed.\n Last observation: April 2014.",
tag = "us_unempl.pdf (last update: 2019-01-15, 22:30)") +
theme(plot.caption = element_text(hjust = 0),
plot.tag = element_text(size = rel(1)),
plot.tag.position = c(0.85, 0.05))