Решетка пакета R не будет построена при запуске с использованием source ()

Я начал использовать графический пакет lattice , но столкнулся с проблемой. Я надеюсь, что кто-нибудь сможет мне помочь. Я хочу построить гистограмму, используя соответствующую функцию.

Вот файл foo.r :

library("lattice")

data <- data.frame(c(1:2),c(2:3))
colnames(data) <- c("RT", "Type")

pdf("/tmp/baz.pdf")
histogram( ~ RT | factor(Type), data = data)
dev.off()

Когда я запускаю этот код, используя R --vanilla ] все работает нормально.

source("bar")