hrbrmstr

#!/usr/bin/env Rscript

library(httr, include.only = c("GET", "add_headers", "content"))
library(jsonlite, include.only = c("fromJSON", "write_json"))
library(glue, include.only = c("glue"))

GITHUB_TOKEN <- Sys.getenv("GITHUB_TOKEN")

JSON_FILE <- "webr-experiments.json"
HTML_FILE <- "webr-experiments/index.html"

AlbertRapp

library(dplyr)
library(ggplot2)
library(patchwork)
library(ggiraph)

dat <- gapminder::gapminder |> 
  janitor::clean_names() |> 
  mutate(
    # ID that is shared for boxplots (this one uses factors, i.e. numbers, as ID instead of continents)

krlmlr

`<-` <- function(lhs, rhs, envir = parent.frame()) {
  assign(as.character(substitute(lhs)), rhs, envir)
  lockBinding(substitute(lhs), envir)
  invisible(rhs)
}

JarrydLong

<?php
/**
 * This recipe will redirect you to the levels page after registration
 * 
 * You can add this recipe to your site by creating a custom plugin
 * or using the Code Snippets plugin available for free in the WordPress repository.
 * Read this companion article for step-by-step directions on either method.
 * https://www.paidmembershipspro.com/create-a-plugin-for-pmpro-customizations/
 */
function my_pmpro_redirect_after_register( $user_id ){

domenicrosati

z3tt

#### 1. Sign up at GitHub.com ################################################

## If you do not have a GitHub account, sign up here:
## https://github.com/join

# ----------------------------------------------------------------------------

#### 2. Install git ##########################################################

## If you do not have git installed, please do so: 

gausam

<?php

/**
 * This recipe adds billing fields to the Membership Profile page.
 *
 * It is intended for use with the Register Helper Add On:
 * https://www.paidmembershipspro.com/add-ons/pmpro-register-helper-add-checkout-and-profile-fields/
 * 
 * You can add this recipe to your site by creating a custom plugin
 * or using the Code Snippets plugin available for free in the WordPress repository.

jasonsychau

# a combination of
# https://stackoverflow.com/questions/1815606/determine-path-of-the-executing-script/15373917#15373917
# https://stackoverflow.com/questions/1815606/determine-path-of-the-executing-script/7585599#7585599
# https://stackoverflow.com/questions/47044068/get-the-path-of-current-script/47045368#47045368
# https://stackoverflow.com/questions/53512868/how-to-automatically-include-filepath-in-r-markdown-document/53516876#53516876
stub <- function() {}
thisPath <- function() {
  cmdArgs <- commandArgs(trailingOnly = FALSE)
  if (length(grep("^-f$", cmdArgs)) > 0) {
    # R console option

andrewheiss

library(tidyverse)

# Make yard size, the presence/absence of a home garden, and attitudes toward the 
# environment all correlated with each other. Home garden will be binary, so I split 
# it based on some threshold later. Attitudes toward the environment will be on a 
# scale of 1-10, so I rescale and ceiling it later

mu <- c(yard_size = 20000, home_garden = 30, attitude_env = 70)
stddev <- c(yard_size = 10000, home_garden = 15, attitude_env = 40)

mkearney

## load rtweet
library(rtweet)

## store bounding box coordinates for state of nevada
nv <- c(-120.00647, 35.00186, -114.03965, 42.00221)

## initialize output vector and Midwestern 'ope' counter
s <- list()
ope <- 0L