alexander-matz

# Color palettes that actually look good from 1 .. 12 colors
# Taken from: https://blog.graphiq.com/finding-the-right-color-palettes-for-data-visualizations-fcd4e707a283
graphiq <- function (n, option = 'warm') {
    if (n < 1 || n > 12) stop('colors only defined for n = 1..12');
    if (option == 'warm') {
        return(switch(n,
c("#FDB25F"),
c("#FFC96B", "#F47942"),
c("#FFC96B", "#F47942", "#AB412C"),
c("#FFD773", "#F99851", "#EF5833", "#923E2D"),

johnbaums

get_namespaces <- function(file, as_imports=FALSE) {
  require(stringi)
  require(dplyr)
  
  nm <- readLines(file) %>% 
    stringi::stri_extract_all(regex='[\\w_.]+::[\\w_.]+') %>% 
    unlist %>% 
    setdiff(NA) %>% 
    sort