Skip to content

Instantly share code, notes, and snippets.

library(devtools)
install_url("http://s3.amazonaws.com/opencytoworkshop/BioC2015OpenCyto_1.0.tar.gz")
# test
library(devtools)
install_url("http://s3.amazonaws.com/vobencha-workshop/BioC2015LargeData_0.0.1.tar.gz")
system('ssh-keygen -t rsa -C "[email protected]" -N "" -f ~/.ssh/id_rsa')
system("cat ~/.ssh/id_rsa.pub >> ~/.ssh/authorized_keys")
<?xml version="1.0" encoding="UTF-8" ?>
<!--
Licensed to the Apache Software Foundation (ASF) under one or more
contributor license agreements. See the NOTICE file distributed with
this work for additional information regarding copyright ownership.
The ASF licenses this file to You under the Apache License, Version 2.0
(the "License"); you may not use this file except in compliance with
the License. You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
#!/usr/bin/env ruby
require 'pp'
if ARGV.length != 1
puts "usage: #{$0} manifest_file"
exit
end
lines = File.readlines(ARGV.first)
source("https://bioconductor.org/biocLite.R")
biocLite(c("AnnotationHub", "rtracklayer"))
library(AnnotationHub)
ah <- AnnotationHub()
ah <- subset(ah, species == "Homo sapiens")
qhs <- query(ah, "RefSeq")
genes <- qhs[qhs$genome == "hg19" & qhs$title == "RefSeq Genes"]
genes <- qhs[[1]]
# first set of machines
machine1:
image: "dtenenba/cytoscape3"
ports:
- "9291:1234"
machine2:
image: "dtenenba/cytoscape3"
ports:
- "9292:1234"
machine3:
# for the release announcement, a list of new package names and their Description fields
# start with 'pkgs' which is a vector of new package names
# manually generate this by diffing the last 2 manifests
f <- function(pkg) {
desc <- sprintf("%s/DESCRIPTION", pkg)
dcf <- read.dcf(desc)
desc <- dcf[,'Description']
names(desc) <- pkg
desc
require 'aws-sdk'
require 'time'
require 'yaml'
require 'httparty'
Aws.config.update({region: 'us-east-1', credentials: Aws::Credentials.new('access_key', 'secret_key')})
ec2 = Aws::EC2::Client.new(region: 'us-east-1')
def get_amis(ec2)