noamross

# TODO (maybe)
# - Vectorize on URLs
# - Allow for downloading whole directory contents if path is a directory
#     -  Make a recursive = TRUE argument for this case
# - Error messages/input checking

#' Gets a file from a github repo, using the Data API blob endpoint
#'
#' This avoids the 1MB limit of the content API and uses [gh::gh] to deal with
#' authorization and such.  See https://developer.github.com/v3/git/blobs/

edzer

require("sf")
require("dplyr")
require("hexbin")

# Linux libertine font "sf", converted to path with Inkscape,
# added points between existing points 2 times, then turned all segments into straight lines.
# Saved as SVG with absolute coordinates (Preferences > SVG Output > Path Data).
# Loaded coords from SVG source code, remove letters from start and end, and replace " " with ","
coords_f <- c(218.1169,163.46992,215.56952,177.96334,213.51976,189.84421,211.82546,200.33884,210.34442,210.67351,208.24728,226.35176,205.51032,243.54066,201.92029,259.27223,197.26391,270.57846,195.45112,272.90665,193.28288,274.70167,190.97247,275.85687,188.73314,276.26564,187.03291,276.03164,185.79476,275.38887,184.84097,274.42619,183.99382,273.23248,182.45947,271.13533,180.24976,269.10927,177.54243,267.58084,174.51519,266.97658,171.25987,267.58973,169.08867,269.18036,167.87718,271.37526,167.501,273.8012,168.44294,277.0032,171.48203,279.79643,176.93817,281.77214,185.13126,282.52154,191.01986,281.80176,196.83737,279.60686,202.29944,

noamross

#!/bin/bash

# Usage: mkproj [projectname]
# projectname defaults to name of current directory

template="Version: 1.0

RestoreWorkspace: No
SaveWorkspace: No
AlwaysSaveHistory: Yes

gadenbuie

warning("You probably don't want to use this `backstitch()` function.",
        "\n  It's hacky and there's a much better option in knitr called `purl()`.",
        "\n  More info at: `?knitr::purl`")

#' Backstitch an Rmd file to an R script
#'
#' Takes an Rmd file -- that would be converted with knitr::knit() -- and
#' "backstitches" it into an R script suitable for knitr::purl(). The output
#' file is the just the backstitched R script when `output_type = 'script'`, or
#' just the code chunks when `output_type = 'code'` (note that all inline code

rueycheng

GNU Make Cheatsheet

Based on https://www.gnu.org/software/make/manual/html_node/Quick-Reference.html

Directives

Directive	Description
define variable define variable = define variable := define variable ::= define variable += define variable ?= endef	Define multi-line variables.
undefine variable	Undefining variables.

nishadhka

import rasterio.merge

bounds=None
res=None
nodata=None
precision=7

def merge(input1,bounds, res, nodata, precision):
    import warnings
    warnings.warn("Deprecated; Use rasterio.merge instead", DeprecationWarning)

hrbrmstr

#!/bin/bash

TODAY=`date +%Y-%m-%d`
TODAY_MD=`date +%B\ %d,\ %Y`
YEAR=`date +%Y`

PROJECT=$1

##
## CHANGE ME!!!

jeroen

# To request without downloading body set CURLOPT_NODOBY = TRUE
handle <- curl::new_handle(nobody = TRUE)
url <- 'https://httpbin.org/redirect-to?url=http%3A%2F%2Fexample.com%2F'
req <- curl::curl_fetch_memory(url, handle)
print(req$url)

# To get the 'filename' 
url <- 'http://pasta.lternet.edu/package/data/eml/knb-lter-ntl/320/4/4a283c25f3548c0f78d8a01658e4a353'
req <- curl::curl_fetch_memory(url, handle = handle)
grep("Content-Disposition:", curl::parse_headers(req$headers), value = TRUE)

mooresm

functions {
  vector ft(vector t, real r, real y0, real tC, real L) {
    vector[num_elements(t)] mu;
    vector[num_elements(t)] exprt;
    exprt = exp(r*(t-tC));
    mu = y0*L*exprt ./ (L + y0*(exprt - 1));
    return mu;
  }
  
  vector dfdt(vector t, real r, real tC, real L) {

bearloga

#!/bin/bash

# Usage: mkproj [projectname]
# projectname defaults to name of current directory

template="Version: 1.0\nRestoreWorkspace: Default\nSaveWorkspace: Default\nAlwaysSaveHistory: Default\n\nEnableCodeIndexing: Yes\nUseSpacesForTab: Yes\nNumSpacesForTab: 4\nEncoding: UTF-8\n\nRnwWeave: knitr\nLaTeX: pdfLaTeX"

wd=$(basename `pwd`)

if [ -z $1 ]; then