Kamil Slowikowski slowkow

I hereby claim:

To claim this, I am signing this object:

** R
** inst
** preparing package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes

	flatten_points <- function(plot, width = 10, height = 5, dpi = 200) {
	is_geom_point <- sapply(plot$layers, function(layer) {
	"GeomPoint" %in% class(layer$geom)
	})

	plot_flat <- plot + ggplot2::theme_void()
	plot_vector <- plot

	plot_flat$layers <- plot$layers[is_geom_point]
	plot_vector$layers <- plot$layers[!is_geom_point]

	# Inspired by Ole Peters: https://youtu.be/LGqOH3sYmQA

	# Play the coin flip game for n rounds.
	# Win 50% of your holdings if you get heads
	# Lose 40% of your holdings if you get tails
	# Keep flipping for n rounds
	play <- function(n) 100 * cumprod(ifelse(runif(n) > 0.5, 1.5, 0.6))

	n_plays <- 1e4

	@article{slowikowski2014snpsea,
	title={SNPsea: an algorithm to identify cell types, tissues and pathways affected by risk loci},
	author={Slowikowski, Kamil and Hu, Xinli and Raychaudhuri, Soumya},
	journal={Bioinformatics},
	volume={30},
	number={17},
	pages={2496--2497},
	year={2014},
	publisher={Oxford University Press}
	}

	#!/usr/bin/env bash
	# pdf-montage.sh
	#
	# Take a PDF and create a PNG with a montage of thumbnails of each page.
	#
	# Example PDF:
	# https://academic.oup.com/bioinformatics/article-pdf/30/17/2496/17148439/btu326.pdf
	#
	# Example montage:
	# https://i.imgur.com/nGn989z.png

	<!doctype html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.0.0-rc1/jquery.min.js"></script>
	<script src="https://cdnjs.cloudflare.com/ajax/libs/pako/1.0.1/pako.min.js"></script>
	</head>
	<body>
	<form id="my-form">
	<input type="file" name="file">

-#!/usr/bin/env python
-"""
-Remove emoji from a text file and print it to stdout.
-Usage
------
-    python remove-emoji.py input.txt > output.txt
-"""