library(tibble)
library(ggplot2)
animal_cuteness <- readr::read_csv(inputs[[1]])
plot <- ggplot(animal_cuteness, aes(1, cuteness)) +
geom_bar(stat = "identity", fill = "red")
ggsave(outputs[[1]], plot, width = 5, height = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.