Chris Black infotroph

What I want

Basically I want a timestring parsing function whose output behaves like the result from

x = as.POSIXct("2001-01-01 01:00:00 -0600", tz="America/Chicago")
y = as.POSIXct("2001-01-01 07:00:00Z", tz="UTC")
z = as.POSIXct("2001-01-01 13:00:00 +0600", tz="Asia/Omsk")

	#' Generate a minimal fake package namespace
	#'
	#' Mocks up a tiny package namespace and monkey-patches it into the current R
	#' sessions's namespace registry. This abuses some R internals and has high
	#' potential to break things for the remainder of your session. Use it with
	#' great caution, or maybe not at all.
	#'
	#' The intended use case was to provide nonfunctional skeletons of selected
	#' functions from packages that are not installed, solely so that they could
	#' then be replaced by test stubs. Embarrassingly soon after writing this

	library(microbenchmark)

	# PEcAn.utils::to_ncvar, revision 79ef207
	to_ncvar_current <- function(varname,dims){
	standard_vars <- read.csv(system.file("data/standard_vars.csv", package="PEcAn.utils"), stringsAsFactors = FALSE)
	var <- standard_vars[which(standard_vars$Variable.Name == varname),]
	#check var exists
	if(nrow(var)==0){
	PEcAn.logger::logger.severe(paste("Variable",varname,"not in standard_vars"))
	}


	# > ls -R ./dirs
	# a b c d e

	# ./dirs/a:
	# file1 file2 file3

	# ./dirs/b:
	# fileOne fileThree fileTwo

	# Overthinking a speed comparison. The task at hand is:
	# "if this column contains values greater than 1, assume they're percentages and divide them by 100"

	library(microbenchmark)
	library(data.table)
	library(dplyr)
	library(ggplot2)

	# We'll generate 20 columns for realistic size, but only column 10 used in this test
	newdata <- function(nrow, max_1 = TRUE){

	struct A{
	T x;
	A(): x{default_T} {};
	A(T t): x{t} {};
	};

	// Produces two fully initialized A's,
	// with a->x == default_T a2->x == my_T.
	// Good, fine.
	A* a = new A{};

	# Have: file with observation ids that reset every time the instrument is restarted
	# Want: Session identifiers that increment each restart
	# Base R approach shown below. Is there a "standard" Tidyverse approach to this?

	dat = read.csv(text = "
	id,y
	RESET
	1,1.2
	2,3.5
	3,2.8

	# Machine A: Working as desired.

	> devtools::session_info()
	Session info -------------------------------------------------------------------
	setting value
	version R version 3.3.1 (2016-06-21)
	system x86_64, linux-gnu
	ui X11
	language (EN)
	collate en_US.UTF-8


	```
	library("PEcAn.data.atmosphere")
	library("dplyr")

	ne = download.Geostreams(
	outfolder="~/gstest",
	sitename="UIUC Energy Farm - NE",
	start_date="2016-03-01",
	end_date="2016-03-31")

	# Have:
	# A scatterplot with points grouped by binning a continuous variable.
	(ggplot(mtcars, aes(wt, mpg, color=carb>2))
	+geom_point()
	+geom_smooth(aes(color=carb>2), method="lm"))

	# Also have:
	# A scatterplot with the smoothers grouped but points colored continuously
	(ggplot(mtcars, aes(wt, mpg, color=carb))
	+geom_point()