Enchufa2

#!/usr/bin/env python3
# coding=UTF8
# Author: Iñaki Ucar <i.ucar86@gmail.com>
# Description: Download all events, births and deaths from Wikipedia

import sys, requests, locale
from datetime import date, timedelta as td
from pypandoc import convert # <3

MAX_TITLES = 50

jeroen

SUPERSEDED

A new version of Solaris VM for R is available from https://github.com/jeroenooms/solarisvm

markusstraub

#!/usr/bin/env bash

############################################################
#
# cloudsend.sh
#
# Uses curl to send files to a shared
# Nextcloud/Owncloud folder
#
# Usage: ./cloudsend.sh <file> <folderLink>

hroncok

{
	"CtrlLeft":       "WordLeft",
	"CtrlRight":      "WordRight",
	"CtrlShiftLeft":  "SelectWordLeft",
	"CtrlShiftRight": "SelectWordRight",
	"CtrlUp":         "MoveLinesUp",
	"CtrlDown":       "MoveLinesDown",
	"CtrlShiftHome":  "SelectToStart",
	"CtrlShiftEnd":   "SelectToEnd",
	"CtrlW":          "DeleteWordLeft",

Enchufa2

#remotes::install_github("ropensci/cchecks")
library(cchecks)

myaddress <- whoami::email_address()
# cchn_register(myaddress)

pkgs <- cch_maintainers(sub("@", "_at_", myaddress))$data$packages
msgs <- c("warn", "error")

rules <- lapply(pkgs$package, function(pkg) list(package=pkg))

Enchufa2

#!/bin/bash
# Remove and purge old mistakes and/or unwanted big files from git history
# author: Iñaki Ucar <i.ucar86@gmail.com>
# based on: http://blog.ostermiller.org/git-remove-from-history

if [ "$#" -ne 2 ]; then
  echo "usage: $0 <repo-URL> <pattern>"
  exit 1
fi

ellisp

dualplot <- function(x1, y1, y2, x2 = x1, 
                     col = c("#C54E6D", "#009380"),
                     lwd = c(1, 1), colgrid = NULL,
                     mar = c(3, 6, 3, 6) + 0.1, 
                     ylab1 = paste(substitute(y1), collapse = ""), 
                     ylab2 = paste(substitute(y2), collapse = ""),
                     nxbreaks = 5, 
                     yleg1 = paste(gsub("\n$", "", ylab1), "(left axis)"), 
                     yleg2 = paste(ylab2, "(right axis)"),
                     ylim1 = NULL, ylim2 = NULL, ylim.ref = NULL,

rCarto

library(raster)
library(cartography)
library(sf)
library(SpatialPosition)

mtq <- st_read(system.file("shape/martinique.shp", package="cartography"))
# use WGS84 proj
mtq_latlon <- st_transform(mtq, 4326)
# this call throw an error but seems to work...
getData('SRTM', lon=-61, lat=14)