zeehio

rm(list=ls())
paquets_CRAN <- c("reshape2",
                  "ggplot2", "colorspace",
                  "class", "e1071", "sfsmisc", "MASS",
                  "ChemometricsWithR", "ChemometricsWithRData",
                  "ptw", "signal", "dplyr", "gtools")

paquets_biocond <- c("DOSE","clusterProfiler","org.Hs.eg.db",
                     "Rgraphviz","pathview",
                     "KEGGgraph", "ALL","hgu95av2.db", "topGO",

zeehio

#' Add space between the legend title and the legend items
#' @param gplt A plot created with ggplot
#' @param x How much space to add, given in x_unit units (default 0.5 lines)
#' @param x_unit Unit of x, "line" by default
#' @return A gtable object that can be plotted using plot()
#' @examples
#' library(ggplot2)
#' gplt <- ggplot(iris) + geom_point(aes(x=Sepal.Length, y = Sepal.Width, color = Species))
#' plt_gtable <- add_legend_title_space(gplt)
#' plot(plt_gtable)

zeehio

loadNamespace("dplyr") # Like library, but forces us to use dplyr:: on all the calls
loadNamespace("DBI")
loadNamespace("RSQLite")
loadNamespace("dbplyr") # we don't directly use dbplyr, but dplyr uses it internally so better do the check now
`%>%` <- dplyr::`%>%` # We don't want to write dplyr::`%>%` every time

db_file <- "/tmp/iris55.db"

# This tryCatch makes sure that the database connection is properly disconnected
# at the end, even if there are errors in the middle of the script

zeehio

setup1 = """
from itertools import zip_longest

def zip_equal(*iterables):
    sentinel = object()
    for combo in zip_longest(*iterables, fillvalue=sentinel):
        if sentinel in combo:
            raise ValueError('Iterables have different lengths')
        yield combo

zeehio

#!/bin/sh

# 1. Check that espeak fails to transcribe mycroft:
echo "How espeak transcribes 'hola mycroft':"
espeak -v spanish -x -q --pho "hola mycroft"
# 'ola mik**'Oft
echo "How espeak should transcribe 'hola mycroft':"
espeak -v spanish -x -q --pho "hola máicroft"
# 'ola m'aik**Oft

zeehio

#!/usr/bin/env python3
"""
Moodle provides a backup system for courses offering an mbz file. This is a zip file with
all the resources and files included and the needed metadata about the files encoded in XML.

This script gets an unzipped mbz directory and copies all the files from the course into 
a directory tree with the same layout than the original moodle course.

unzip my_moodle_backup.zip
extract_moodle_files.py --source my_moodle_backup_FILES --destination sorted_course 

zeehio

#' Plots in WebGL
#' @param plt A plot created with plotly or ggplot2
#' @param html_filename The file name where the plot will be saved
#'
#' @return The html_filename
#' @export
#'
plot_interactive <- function(plt, html_filename) {
  htmltools::save_html(

zeehio

---
title: "Untitled"
author: "test"
date: "17/7/2020"
output: html_document
---

```{r}
xy <- tibble::tibble(
  y = c(1, 2, 3, 4, 5, 6),

zeehio

import os

def _clamp(x, min, max):
    if x < min:
        return min
    if x > max:
        return max
    return x

def _read_cpu_quota_limit_cgroup():

zeehio

Keybase proof

I hereby claim:

• I am zeehio on github.
• I am zeehio (https://keybase.io/zeehio) on keybase.
• I have a public key whose fingerprint is 40B1 F8F3 B43C F786 4ED1 A0B6 20DA 0569 6BEB 2330

To claim this, I am signing this object: