data-raw/item-labels.R

In pedmiston/totems-data: Researching the Impact of Inheritance on Problem Solving

library(devtools)
library(tidyverse)

ItemLabels <- read_csv("data-raw/game/scores.csv") %>%
  select(Number = Result, Name) %>%
  unique()

StartingItems <- data_frame(
  Number = 1:6,
  Name = c("Big_Tree.jpg", "Tree.jpg", "Stone.jpg", "Red_Berry.jpg", "Blue_Berry.jpg", "Antler.jpg")
)

ItemLabels <- bind_rows(StartingItems, ItemLabels)

use_data(ItemLabels, overwrite = TRUE)