jeffreyhorner

.Rproj.user
.Rhistory
.RData
*.Rproj
*.html

jeffreyhorner

library(shiny)

shinyServer(function(input, output) {
   re <- reactive(function(){
      cat("re called\n",file=stderr())
      input$n
   })

   output$ntext <- reactiveText(function() {
      cat("output$ntext called\n",file=stderr())

jeffreyhorner

library(shiny)
shinyServer(function(input, output) {
   cat('shinyServer called\n',file=stderr())

   output$foo <- reactivePrint(function(){
     cat('output$foo called\n',file=stderr())
     input
   })

   runIfVisible <- function(visibleTab,val,expr){

jeffreyhorner

library(shiny)
shinyServer(function(input, output) {
   cat('shinyServer called\n',file=stderr())
  
   output$foo <- reactivePrint(function(){
     cat('output$foo called\n',file=stderr())
     input$n    
   })            
                 
   output$afunc <- reactivePrint(function() {

jeffreyhorner

require(lattice)
library(RMySQL)
## The following functions are in the HH package
panel.ae.dotplot <-
 function (x, y, groups, ..., col.AB, pch.AB, lower, upper)
{
    panel.num <- panel.number()
    if (panel.num == 1)
        panel.ae.leftplot(x, y, groups = groups,
            col = col.AB, pch = pch.AB, ...)

jeffreyhorner

require(lattice)
library(RMySQL)
## The following functions are in the HH package
panel.ae.dotplot <-
 function (x, y, groups, ..., col.AB, pch.AB, lower, upper)
{
    panel.num <- panel.number()
    if (panel.num == 1)
        panel.ae.leftplot(x, y, groups = groups,
            col = col.AB, pch = pch.AB, ...)

jeffreyhorner

require(lattice)
## The following functions are in the HH package
panel.ae.dotplot <-
 function (x, y, groups, ..., col.AB, pch.AB, lower, upper)
{
    panel.num <- panel.number()
    if (panel.num == 1)
        panel.ae.leftplot(x, y, groups = groups,
            col = col.AB, pch = pch.AB, ...)
    if (panel.num == 2)

jeffreyhorner

toSeconds <- function(x){
        if (!is.character(x)) stop("x must be a character string of the form H:M:S")
        if (length(x)<=0)return(x)

        unlist(
                lapply(x,
                        function(i){
                                i <- as.numeric(strsplit(i,':',fixed=TRUE)[[1]])
                                if (length(i) == 3)
                                        i[1]*3600 + i[2]*60 + i[3]

jeffreyhorner

library(stringr)
library(evaluate)
library(sinartra)
is.pass <- function(x) inherits(x,'pass')
#' Parse route (with parameters) into regular expression.
#'
#' @param route route url.
#' @return
#'   \item{match}{regular expression to match route}
#'   \item{params}{parameter names}

jeffreyhorner

library(twitteR)
library(infochimps)
library(datamap)

infochimps('YOUR_API_KEY')

# Creates a new mapper, similar to an OO class
newMapper(type='twitchimps:influence',

    # Init is called once during newMap(). Note that