sdhutchins

# -*- coding: utf-8 -*-
"""
Created on Fri Jan 13 18:18:52 2017

@author: sdhutchins

"""
#------------------------------------------------------------------------------
# Modules Used
#------------------------------------------------------------------------------

sdhutchins

# List unique values in a DataFrame column
pd.unique(df.column_name.ravel())

# Convert Series datatype to numeric, getting rid of any non-numeric values
df['col'] = df['col'].astype(str).convert_objects(convert_numeric=True)

# Grab DataFrame rows where column has certain values
valuelist = ['value1', 'value2', 'value3']
df = df[df.column.isin(valuelist)]

sdhutchins

#!/usr/bin/env python

from multiprocessing import Process, Pool
import time
import urllib2

def millis():
  return int(round(time.time() * 1000))

def http_get(url):

sdhutchins

import yaml
import json
import pandas as pd

df = pd.DataFrame({'one': [1.0, 2.1, 3.2], 'two': [4.3, 5.4, 6.5]})

with open('df.yml', 'w') as file:
    yaml.dump({'result': json.loads(df.to_json(orient='records'))}, file, default_flow_style=False)

sdhutchins

"""Random Utilities"""

import shutil
import os
import subprocess


class StyleFix:
    """Perform automatic pep8 for code in a top down fashion.
    

sdhutchins

import pycodestyle
import os


def checkstyle(rootpath):
    r = rootpath
    for root, dirs, files in os.walk(r, topdown=True):
        for f in files:
            if f.endswith('.py'):
                fchecker = pycodestyle.Checker(os.path.join(root, f),

sdhutchins

library(shiny)
library(deSolve)
library(cummeRbund)

# load cuffDiff data, must be in top dir and called cuffData.db:
cuff = readCufflinks()

shinyServer(function(input,output) {
    
	getData = reactive(function() {

sdhutchins

Keybase proof

I hereby claim:

• I am sdhutchins on github.
• I am sdhutchins (https://keybase.io/sdhutchins) on keybase.
• I have a public key ASDe2oDMwMTPl8xU2hhtEjDmNr6JcRO6i2z-OfIlmt8llwo

To claim this, I am signing this object:

sdhutchins

Function pevaluate(p1 As Integer, p2 As Integer, data As String)

If p1 <= 0.05 And p2 <= 0.05 Then
    pevaluate = data & "*†"
ElseIf p1 <= 0.05 Then
    pevaluate = data & "*"
ElseIf p2 <= 0.05 Then
    pevaluate = data & "†"
End If
End Function

sdhutchins

install.packages(c('devtools', 'tidyverse', 'shiny', 'DT', 'rmarkdown', 'testthat', 'roxygen2', 'BiocManager', 'usethis', 'pkgdown', 'workflowr', 'ggpubr', 'ggthemes', 'sciplot', 'swirl', 'styler', 'ggsci', 'blogdown', 'bookdown', 'sinew', 'available'))

devtools::install_github('Mikata-Project/ggthemr')
devtools::install_github("max-alletsee/rstudio-themes")