CGMossa

#TODO: Find a way to restart R without using this particular .Rprofile.
#
# CLEAN_SESSION <- TRUE
CLEAN_SESSION <- FALSE

if (interactive() && !CLEAN_SESSION) {

  # Configure session -------------------------------------------------------
  message("Interactive mode configuration")

seasmith

`[.hmmm` <- function (x, i, ...) {
  
  isub <- substitute(i)
  
  is_seq <- identical(as.list(isub)[[1L]], as.name(":"))
  
  if (is_seq) {
    
    end_seq <- as.list(isub)[[3L]]
    is_end <- identical(end_seq, as.name("end"))

hadley

# =======================================
# =     Enhancements to data tidying    =
# =          Hadley Wickham             =
# = https://rstd.io/tidyhancements-2019 =
# =======================================

# What is tidy data? ----------------------------------------------------------
# 1. Each column is a variable.
# 2. Each row is an observation.
# 3. Each cell is a value.

summerofgeorge

# List the jpg files in the folder

old_files <- list.files("C:/ImageTest", pattern = "*.JPG", full.names = TRUE)
old_files

# Create vector of new files

new_files <- paste0("C:/NewFiles/file_",1:length(old_files),".JPG")
new_files

femiyb

<?php
/*
Add bcc for checkout emails
*/
function my_pmpro_email_headers_admin_emails($headers, $email)
{		
	//bcc checkout emails
	if($email->template == "membership_expiring" || $email->template == "membership_expired")
	{
		//add bcc

aoles

---
output: html_document
---

```{r setup, include=FALSE}
knit_hooks_source <- knitr::knit_hooks$get("source")
knitr::knit_hooks$set(source = function (x, options) {
  if (!is.null(options$save))
    writeLines(x, options$save)
  knit_hooks_source(x, options)

bgauduch

Multiple git identities on one machine

One machine, several git identities (personal vs work, GitHub vs GitLab, two accounts on one provider). Each repository picks its own name, email and credentials. In a hurry: Appendix B, once per rule.

A wrong identity does not fail: git commits and pushes under the wrong author. Part 1 ends with the check that catches it.

Requirements

Feature	Minimum git

gadenbuie

# Animated dplyr joins with gganimate
# * Garrick Aden-Buie
# * garrickadenbuie.com
# * MIT License: https://opensource.org/licenses/MIT

# Note: I used Fira Sans and Fira Mono fonts.
#       Use search and replace to use a different font if Fira is not available.

library(tidyverse)
library(gganimate)

HanjoStudy

##########################################################
#
#     HANJO ODENDAAL 
#     hanjo.oden@gmail.com
#     www.daeconomist.com
#     @UbuntR314
#     https://github.com/HanjoStudy
#     
#
#     ██████╗ ███████╗███████╗██╗     ███████╗███╗   ██╗██╗██╗   ██╗███╗   ███╗

thomasp85

library(gganimate) # thomasp85/gganimate
library(cartogram)
library(geogrid) # Need github version jbaileyh/geogrid
library(rnaturalearth)
library(sf)
library(scico)

us <- ne_states('united states of america', returnclass = 'sf')
us <- us[!us$woe_name %in% c('Alaska', 'Hawaii'), ]
us <- st_transform(us, '+proj=eqdc +lat_0=39 +lon_0=-96 +lat_1=33 +lat_2=45 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs')