Skip to content

Instantly share code, notes, and snippets.

@krlmlr
krlmlr / .screenrc-xpra
Created May 27, 2013 11:33
Files for integrating xpra with GNU Screen
!|sh -c "echo $DISPLAY > ~/.display-$(cat /etc/hostname)"
screen -t xpra 9 xpra start $DISPLAY --no-daemon
> devtools::install_github("tidyverse/dplyr")
Downloading GitHub repo tidyverse/dplyr@master
from URL https://api.github.com/repos/tidyverse/dplyr/zipball/master
Installing dplyr
Downloading GitHub repo hadley/rlang@ac7498c9
from URL https://api.github.com/repos/hadley/rlang/zipball/ac7498c9
Installing rlang
"C:/PROGRA~1/R/R-33~1.3/bin/x64/R" --no-site-file --no-environ --no-save
--no-restore --quiet CMD \
INSTALL \
@krlmlr
krlmlr / sqlite3-unsigned-64.patch
Created January 8, 2017 12:56
SQLITE_UINT64_TYPE
diff --git a/src/sqlite3/sqlite3.h b/src/sqlite3/sqlite3.h
index 37d1024..0f55423 100644
--- a/src/sqlite3/sqlite3.h
+++ b/src/sqlite3/sqlite3.h
@@ -248,8 +248,11 @@ typedef struct sqlite3 sqlite3;
** between 0 and +18446744073709551615 inclusive.
*/
#ifdef SQLITE_INT64_TYPE
+ #ifndef SQLITE_UINT64_TYPE
+ #define SQLITE_UINT64_TYPE unsigned SQLITE_INT64_TYPE
@krlmlr
krlmlr / huntr.R
Created December 23, 2016 14:50
Detect and manually fix missing join-by columns for dplyr
withCallingHandlers(
remake::make(remake::list_targets()),
message = function(e) {
if (grepl("Joining, ", e$message)) {
by_clause <- gsub("Joining(.*)\n", "\\1", e$message)
clipr::write_clip(by_clause)
srcref <- testthat:::find_first_srcref(sys.calls()[-1:-15])
srcfile <- attr(srcref, "srcfile")$filename
rstudioapi::navigateToFile(srcfile, srcref[1], srcref[2])
stop("Insert by clause: ", by_clause)
@krlmlr
krlmlr / .screenrc-xpra
Last active December 7, 2016 16:50 — forked from anonymous/-
screen -t xpra 9 xpra start $DISPLAY --no-daemon
@krlmlr
krlmlr / test-revdep.R
Last active August 24, 2016 15:11
Draft for testing revdep checks: https://github.com/hadley/devtools/issues/1302
#library(devtools)
devtools::load_all()
#' # Testing revdep_check()
#'
#' Functions:
create_deps_tested <- function() {
deps <- list(
testee = character(),
@krlmlr
krlmlr / rowwise.Rmd
Last active August 4, 2016 18:50 — forked from wch/rowwise.Rmd
---
title: "Applying a function over rows of a data frame"
author: "Winston Chang"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
```
@krlmlr
krlmlr / gist:92007a8a8677fc56c87f
Created March 2, 2016 11:36
Offline GitHub issues, milestones, and labels, with wget
wget -np -k -e robots=off -r -l 1 https://github.com/krlmlr/tibble/milestones/ https://github.com/krlmlr/tibble/issues/ https://github.com/krlmlr/tibble/labels/
<script language="javascript">
function safe_value(v, def) {
if (/^Fehler/.test(v)) return def;
return v;
}
anzahl_zimmer = safe_value("{INSERTANS:31795X4X2}");
anzahl_zimmer = parseInt(anzahl_zimmer.charAt(0));
wohnstandard = safe_value("{INSERTANS:31795X4X37}");
#!/bin/sh
CVS_REPO=/mnt/sshfs/cvs-repo
SVN_REPO=$PWD/repos2
CHECKOUT
cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s $SVN_REPO/doc $CVS_REPO/ivt/doc --trunk=trunk --branches=!BRANCHES --tags=!TAGS
svn checkout file://$SVN_REPO $CHECKOUT
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/src /mnt/sshfs/cvs-repo/ivt/src --trunk=cvs/trunk --branches=cvs/branches --tags=cvs/tags
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/studies /mnt/sshfs/cvs-repo/ivt/studies --trunk=cvs/trunk --branches=cvs/branches --tags=cvs/tags
#cvs2svn --no-cross-branch-commits --use-internal-co --encoding latin1 --username cvs2svn -s repos/src /mnt/sshfs/cvs-repo/ivt/src --trunk=trunk --branches=branches --tags=tags