data-raw/2021-03-14-pals.R

In JosiahParry/cpcinema: Extract Color Palettes from \@colorpalette.cinema.

cpc <- jsonlite::fromJSON("https://www.instagram.com/colorpalette.cinema/?__a=1")
x <- cpc$graphql$user$edge_owner_to_timeline_media$edges$node

captions <- x$edge_media_to_caption %>%
  unlist() %>%
  str_replace_all('“|”', '"')


lookup <- c(":\n" = "title: ",
            '"' = "",
            "Directed by" = "director:")

make_meta <- function(x) {
  tibble(info = x) %>%
    separate(info, into = c("var", "val"), sep = ": ") %>%
    pivot_wider(names_from = "var", values_from = "val") %>%
    janitor::clean_names()
}

post_captions <- captions %>%
  str_split("\n•") %>%
  map(str_replace_all, lookup)  %>%
  map_dfr(make_meta) %>%
  mutate(img_url = x$display_url)

fp <- post_captions$img_url[[1]]



recent_pals <- post_captions %>%
  mutate(pals = map(img_url, cpcinema::extract_cpc_pal)) %>% 
  nest(meta = -c(title, pals))


pals_raw <- pull(recent_pals, pals) 

pals <- map(pals_raw, cpcinema::color_palette, 10)

titles <- pull(recent_pals, title) %>% 
  str_squish() %>% 
  str_sub(1, -9) %>% 
  tolower() %>% 
  str_replace_all("[:blank:]+", "-")


available_pals <- set_names(pals, titles)

jsonlite::toJSON(available_pals) %>% 
  jsonlite::write_json("data-raw/historic-pals/2021-03-14.json")


jsonlite::write_json(jsonlite::toJSON(cpcinema::available_pals), "data-raw/historic-pals/old-pals.json")