inst/testdata/workflow_animals/scripts/plot_individual_animal_cuteness.R

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)
komparo/certigo documentation built on May 22, 2019, 5:30 p.m.