ijlyttle

require("lubridate")

# in the USA, daylight-saving time begins for 2013 on 10 Mar. 

dtm_start <- ymd("2013-03-10", tz="America/Chicago")

dtm_start
dtm_start + duration(1, "day")
dtm_start + days(1)

ijlyttle

c:\Rtools\bin;c:\Rtools\gcc-4.6.3\bin;c:\Rtools\MinGW\bin

ijlyttle

library(plyr)
library(lubridate)

n_intvl <- 48
dur_intvl <- dseconds(900)

intvl_15min <- data.frame(
  start = ymd("2001-01-01", tz="America/Chicago") + seq(0, n_intvl-1)*dur_intvl,
  dur = rep(dur_intvl, n_intvl)
)

ijlyttle

library(shiny)

shinyServer(function(input, output) {

  # Has a file been imported?
  output$csv_import_ready <- reactive({
    return(!is.null(input$csv_import_file))
  })
  
  # SOLUTION (2013-08-17)

ijlyttle

library(shiny)

items <- c("seed")

shinyServer(function(input, output) {
  
  add_item_a <- reactive({
    
    # register button
    n_click <- input$item_add_a_go

ijlyttle

library(shiny)

items <- c("seed")

shinyServer(function(input, output) {

  cl_add_item <- function(name_value, name_button){
    
    # function to add item
    add_item <- reactive({

ijlyttle

library(shiny)

items <- c("seed")

shinyServer(function(input, output) {

  # closure to generate reactive function to add items
  cl_add_item <- function(name_value, name_button){
    
    # function to add item

ijlyttle

library(dplyr)
mtcars_slim <- summarize(mtcars, mpg, cyl)
summary(mtcars_slim) # ok
str(mtcars_slim) # not ok
mtcars_slim # just weird
mtcars_slim[3, ] # even weirder
sessionInfo()

ijlyttle

library(shiny)
library(ggvis)

data(diamonds, package = "ggplot2")

shinyServer( function(input, output, session) {

  
  hist_standard <- reactive({
        

ijlyttle

    df_data <- 
      tbl(src_azure, "devicestate") %>%
      select(dtm = UTC_DateTime, ActiveCool, Temperature_C, Sum_Power_wh) %>%
      filter(DeviceID == input$device) %>%
      filter(UTC_DateTime > dtm_range[[1]] & UTC_DateTime < dtm_range[[2]]) %>%
      collect()

The line filter(UTC_DateTime > dtm_range[[1]] & UTC_DateTime < dtm_range[[2]]) should work as filter(dtm > dtm_range[[1]] & dtm < dtm_range[[2]])