rdinnager

magrittr Challenge!

My good friend Andrew recently posted this gist, purporting

rdinnager

require(picante)
require(colorspace)
#' Select colours from a palette to maximize perceptual distance between the colours
#' 
#' This function takes a palette as a character vector of hexidecimal colours, and returns a smaller palette, 
#' attempting to maximize the mean perceptual distance (MPD) between the colours in the new palette. It uses CIELAB
#' colorspace to map colour to a perceptually meaningful scale before maximizing distances
#' 
#' @param pal A palette as a character vector containing hexidecimal coded colours
#' @param sat.thresh Minimum saturation of colours in resulting palette (between 0 and 1)

rdinnager

Is there an easy way to convert a named list into a dataframe, preserving the elements of the list in a "list-column"?

library(dplyr)
library(magrittr)

## make a random matrix
rand_mat <- function() {
  Nrow <- sample(2:15,1)

Ncol <- sample(2:15,1)

rdinnager

## Generate ALF simulations
library(whisker)
ALF_template <- function() {
  "  webRequest := false;
  uuid := '4e4937bd-70e5-4caf-8521-f4340a4b7e09';
  
  # name of simulation - you may want to change this
  mname := {{{simname}}};
  
  # directories for file storage - you may want to change these

rdinnager

rdinnager

rdinnager

rdinnager

rdinnager

## This code makes this poster
make_poster <- function() {   
library(ggplot2);library(imager);library(dplyr)
library(tidyr); library(colorspace); library(  
sysfonts); library(showtext); if( !file.exists(
"this_poster_is_made.png" ) )  { download.file(
  "https://www.r-project.org/logo/Rlogo.png",  
  "Rlogo.png", mode = "wb"); font_add_google( 
"Finger Paint");R_logo<-load.image("Rlogo.png")
;poster_text <-capture.output(print(make_poster