stefanedwards

library(shiny)


redOutput <- function(inputId) {
  tagList(
      singleton(tags$head(tags$script(src="red.js"))),
      div(id=inputId, class='redOutput')
  )
}

stefanedwards

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

stefanedwards

library(ggplot2)
library(grid)
library(gridExtra)

theme_mini <- theme_minimal(9)

win.metafile("", width=1, height=0.4, pointsize=9) ## copy to clipboard ! :D
print(p)
dev.off()

stefanedwards

#!/usr/bin/python2.7
#############################
## Author:   Stefan McKinnon Edwards <sme@iysik.com>
## Date:     May 2013
## Revision: 1
## Description:
##  Copies photos from a folder, such as the DCIM folder of a digital 
##  camera, to a Dropbox folder, renaming the files according to their
##  creation date in the process.
#############################

stefanedwards

warning('This coord_closed_cart.R script is deprecated. See R package lemon for updated function!')

#' Cartesian coordinates with closed range on axis-line.
#' 
#' Use `theme(axis.line)` to set the axis-lines' style, as usual.
#' It might be necessary to set `theme(panel.border=element_blank())` to disable
#' the border that is drawn on top of the axis-lines.
#'
#' @param xlim,ylim Limits for the x and y axes.
#' @param expand If \code{TRUE}, the default, adds a small expansion factor to

stefanedwards

######
# author: Stefan McKinnon Edwards <stefan.hoj-edwards@agrsci.dk>
# id: $Id: qsub1.py 25 2013-04-12 11:06:47Z sme $
# qsub-module;
# communicates with cluster-queueing system to retrieve information
# about the current job.
# The qsub commands do no exist on the nodes, so to retrieve the necessary information, 
# we ssh the host and request the information from `qstat`.
#
# To use this module from a script running on a computation cluster,