In softloud/panda: Reproducibility Panda

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

panda

The goal of panda is to make panda pictures that say my words.

library(panda)

panda("I say words!")

installation

And the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("softloud/panda")

motivating usage

mittens_msg <- "My name is Mittens and I am a panda. Aren't I cute?"
socks_msg <-     "My name is Socks.
    I am a replication of Mittens.
        I may or may not be as cute as Mittens, 
        as there is randomness in the panda algorithm."
buttons_msg <- "My name is Buttons and 
        my panda number is 26. 
        I am very cute."
boots_msg <- "My name is Boots. 
    I am exactly as cute as Buttons.
    My panda number is also 26. 
    I am a reproduction of Buttons and a replication of Mittens."

library(patchwork)

rvr <- panda(mittens_msg, panda = 52) +
  panda(socks_msg) +
  panda(buttons_msg, panda = 26) +
  panda(boots_msg, panda = 26)

# usethis::use_data(rvr, overwrite = TRUE)
# 

rvr

how to make a panda

# random panda
panda()

# random panda no information stamped on image about panda number
panda(stamp = FALSE)

# panda speaks
panda("I speaketh the words.")

# selct specific panda
panda(panda = 26)

# select from default pandas
pandas

# select panda by name or mood
panda(descriptor = "declatory",
      msg = "I am a declaratory panda")
panda(descriptor = "Mittens",
      msg = "My name is Mittens.")