gluc

library(shiny)
library(shinyjs)



# Get table metadata. For now, just the fields
# Further development: also define field types
# and create inputs generically
GetTableMetadata <- function() {
  fields <- c(id = "Id", 

andybega

# Archigos transitions and tenure by regime type
#
# Andreas Beger
# 15 December 2014

setwd("~/Desktop/archigos-polity")

library(foreign)
library(gdata)

tomhopper

#' @title PRESS
#' @author Thomas Hopper
#' @description Returns the PRESS statistic (predictive residual sum of squares).
#'              Useful for evaluating predictive power of regression models.
#' @param linear.model A linear regression model (class 'lm'). Required.
#' 
PRESS <- function(linear.model) {
  #' calculate the predictive residuals
  pr <- residuals(linear.model)/(1-lm.influence(linear.model)$hat)
  #' calculate the PRESS

AABoyles

function table2CSV(table, delim){
  var csv = "data:application/csv;charset=utf-8,";
  if(table instanceof HTMLElement){
    table = $(table);
  }
  if(table instanceof jQuery){
    var regex = /,/g;
    if(delim){
      regex = new RegExp(delim, 'g');
      delim = encodeURIComponent(delim);

AABoyles

/*

You can create a spinner using either of the variants below:

$("#el").spin(true);  //Starts the spinner.
$("#el").spin(false); // Kills the spinner.

*/
(function($) {
  $.fn.spin = function(opts) {

xmarquez

AABoyles

getPackage <- function(pkg){
  if(!require(pkg, character.only=TRUE)){
    install.packages(pkg, dependencies=TRUE)
    library(pkg, character.only=TRUE)
  }
  return(TRUE)
}

getPackages <- function(pkgs){
  for (pkg in pkgs){

AABoyles

import nltk, glob

for filename in glob.glob( '*.htm*' ):
        filein = open(filename)
        html = filein.read()
        raw = nltk.clean_html(html)
        
        fileout = open(filename.rstrip('.html')+'.txt', 'w+')
        fileout.write(raw)

AABoyles

<?php

class makeExt{

	protected $project = "<project>";
	protected $name = "<you>";
	protected $desc = "<insert a short description here>";

	public function __construct(){
		global $argv, $argc;

drewconway

#!/usr/bin/env python
# encoding: utf-8

import smtplib
from datetime import datetime


def noticeEMail(starttime, usr, psw, fromaddr, toaddr):
    """
    Sends an email message through GMail once the script is completed.