Adicione um título de plot a ggvis

Quero adicionar um título a um gráfico do ggvis. Não consigo encontrar um exemplo em lugar nenhum. É simples fazer isso com outros gráficos R, por exemplo

library(ggplot2)
library(ggvis)
x <- 1:10
y <- x^2
df <- data.frame(x, y)

plot(x, y, main = "Plot Title")  # Base R with title
ggplot(df, aes(x, y)) + geom_point() + ggtitle("Plot Title")  # ggplot2 with title
df %>% ggvis(~x, ~y) %>% layer_points()  # ggvis but no title??

Sinto como se estivesse perdendo algo óbvio. Qualquer ajuda apreciada.

questionAnswers(3)

yourAnswerToTheQuestion