## Creates speed-gro proportions which determine changes to growth
## TODO: Update with sourced game code or data files instead
## of manual entry
speed_gro <-
data.frame(soil_mod = c("Speed-Gro",
"Deluxe Speed-Gro",
"Hyper Speed-Gro",
"Normal",
"Basic Fertilizer",
"Basic Retaining Soil",
"Deluxe Fertilizer",
"Deluxe Retaining Soil",
"Quality Fertilizer",
"Quality Retaining Soil"),
effect = c(0.9,
0.75,
0.66,
rep(1, 7)))
usethis::use_data(speed_gro, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.