Locate the section for your github remote in the .git/config file. It looks like this:
[remote "origin"]
fetch = +refs/heads/*:refs/remotes/origin/*
url = [email protected]:joyent/node.git
Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section. Obviously, change the github url to match your project's URL. It ends up looking like this:
| library(inline) | |
| library(microbenchmark) | |
| car <- cfunction(c(x = "pairlist"), ' | |
| if (x == R_NilValue) | |
| return R_NilValue; | |
| if (TYPEOF(x) != LISTSXP) | |
| error("x must be a pairlist"); | |
| return CAR(x); | |
| ') |
| # ---- Multiple dispatch functions ----- | |
| multi_dispatch <- function(gen_name) { | |
| calling_env <- parent.frame() | |
| parent_call <- sys.call(sys.parent()) | |
| calling_fun <- sys.function(sys.parent()) | |
| arg1 <- eval(parent_call[[2]], calling_env) | |
| arg2 <- eval(parent_call[[3]], calling_env) |
| # ==== Creating UTF-8 strings ==== | |
| # This is how to create a string with UTF-8 encoding. This should work | |
| # regardless of the current locale settings. | |
| x <- rawToChar(as.raw(c(0xe5, 0x8d, 0x88))) | |
| Encoding(x) <- "UTF-8" | |
| x | |
| # [1] "午" | |
| # Another string, 'Δ★😎' | |
| pat <- rawToChar(as.raw(c(0xce, 0x94, 0xe2, 0x98, 0x85, 0xf0, 0x9f, 0x98, 0x8e))) |