data-raw/developer_docs/obj_id_check.R

In aftonsteps/rdew: rdew

obj_ids_raw <-
  read.csv("data-raw/developer_docs/object_id_check.csv",
           stringsAsFactors = FALSE)
colnames(obj_ids_raw) <- c("text")

obj_ids_raw <-
  obj_ids_raw %>%
  dplyr::mutate(id = stringr::str_extract(pattern = '"[0-9]*"',
                                          string = text))

rings_id <-
  c("516",
    "517",
    "518",
    "519",
    "520",
    "521",
    "522",
    "523",
    "524",
    "525",
    "526",
    "527",
    "528",
    "529",
    "530",
    "531",
    "532",
    "533",
    "534",
    "801")

foods_and_drinks_ids <-
  c("194",
    "195",
    "196",
    "197",
    "198",
    "199",
    "200",
    "201",
    "203",
    "204",
    "205",
    "206",
    "207",
    "208",
    "209",
    "202",
    "210",
    "211",
    "212",
    "213",
    "214",
    "215",
    "216",
    "218",
    "219",
    "220",
    "221",
    "222",
    "223",
    "224",
    "225",
    "226",
    "227",
    "228",
    "229",
    "230",
    "231",
    "232",
    "233",
    "234",
    "235",
    "236",
    "237",
    "238",
    "239",
    "240",
    "241",
    "242",
    "243",
    "244",
    "279",
    "456",
    "457",
    "604",
    "605",
    "606",
    "607",
    "608",
    "609",
    "610",
    "611",
    "618",
    "648",
    "649",
    "651",
    "727",
    "730",
    "728",
    "729",
    "731",
    "732",
    "733",
    "265",
    "904",
    "905",
    "906",
    "907",
    "921",
    "167",
    "184",
    "186",
    "247",
    "253",
    "303",
    "346",
    "348",
    "349",
    "350",
    "351",
    "395",
    "419",
    "432",
    "436",
    "438",
    "459",
    "612",
    "614",
    "724",
    "772",
    "773",
    "803",
    "873",
    "903")

geodes_ids <-
  c("535",
    "536",
    "537",
    "749")

crops_ids <-
  c("24",
    "88",
    "90",
    "188",
    "190",
    "192",
    "248",
    "250",
    "252",
    "254",
    "256",
    "258",
    "259",
    "260",
    "262",
    "264",
    "266",
    "268",
    "270",
    "271",
    "272",
    "274",
    "276",
    "278",
    "280",
    "282",
    "284",
    "296",
    "300",
    "304",
    "376",
    "396",
    "398",
    "400",
    "402",
    "406",
    "410",
    "414",
    "418",
    "421",
    "454",
    "591",
    "593",
    "595",
    "597",
    "613",
    "634",
    "635",
    "636",
    "637",
    "638",
    "815")

## TODO
## 8-elements seem to all be food
## 7 are actual objects
## 6 are fish
## 5 are basic objects

obj_ids_raw_filtered <-
  obj_ids_raw %>%
  dplyr::filter(! id %in%
                  c(rings_id, foods_and_drinks_ids, geodes_ids, crops_ids)) %>%
  dplyr::mutate(fields = stringr::str_count(string = text, pattern = "/")) %>%
  dplyr::mutate(id_paste = paste0(id, ","))

write.csv(obj_ids_raw_filtered,
          "data-raw/developer_docs/regular_objects.csv",
          row.names = FALSE)