dholstius

---
title: "Reactive Leaflet"
author: "David Holstius"
date: "April 16, 2015"
output: html_document
runtime: shiny
---

## Problem Description

dholstius

  extract_substrings <- function (x, ...) {
    make_extractor <- function (i) {
      #message(min(i), " to ", max(i))
      function (s) substr(s, min(i), max(i))
    }
    extractors <- lapply(list(...), make_extractor)
    lapply(extractors, function (f) f(x))
  }
  
  ALPHABET <- paste0(LETTERS, collapse = "")

dholstius

library(ensurer)

ensure_none_missing <- ensures_that(!any(is.na(.)) ~ "There are missing values")
ensure_all_positive <- ensures_that(all(int(.)) > 0 ~ "Not all values are positive", +ensure_none_missing)

# Everything works as expected with a simple vector
x <- 1:4
x %>% ensure_all_positive

# Now let's try testing element(s) of a data.frame

dholstius

require(pachube)
key <- 'bZW0wu4jbqMrkzHhapw8E9...' # use your API key here
t0 <- ISOdate(2012, 05, 23, hour=19, tz="America/Los_Angeles")
z <- getDatapoints(58785, 'large', key, start=t0, interval=30, duration='12hours')
plot(z)

dholstius

key <- 'bZW0wu4jbqMrkzHhapw8E9...' # use your API key here
t0 <- ISOdate(2012, 05, 23, hour=19, tz="America/Los_Angeles")
z <- getDatapoints(58785, 'large', key, start=t0, interval=30, duration='12hours')

dholstius

key <- 'bZW0wu4jbqMrkzHhapw8E9...' # use your API key here
t0 <- ISOdate(2012, 05, 23, hour=19, tz="America/Los_Angeles")
z <- getDatapoints(58785, 'large', key, start=t0, interval=30, duration='12hours')
plot(z)

dholstius

key <- 'bZW0wu4jbqMrkzHhapw8E9...' # use your API key here
t0 <- ISOdate(2012, 05, 23, hour=19, tz="America/Los_Angeles")
z <- getDatapoints(58785, 'large', key, start=t0, interval=30, duration='12hours')
plot(z)

dholstius

require(cosm)
key <- 'bZW0wu4jbqMrkzHhap...' # your API key here
z <- feed_history(58785, key, duration='3hours')
plot(z)

dholstius

require('cosm')

if (!exists('key')) key <- readline('API key: ')

feed <- getFeed(58537, key) 
print(feed$description)

t0 <- Sys.time()
duration <- 60 * 60 * 24 * 7  # one week
z <- getDatapoints(feed, key, datastreams='2h', end=t0, start=t0-duration)

dholstius

#' read.serlog
#'
#' Read CSV records from a file written by serlog.py
#'
#' @param file		filename
#' @param varnames	column names for the resulting \link{zoo} object
#' @export
read.serlog <- function(file, varnames) {
	require(zoo)
	options(digits.secs=3)