yutannihilation

library(dplyr, warn.conflicts = FALSE)

# c.f. https://github.com/r-lib/rlang/issues/906
quatro_curly <- function(data, what) {
  data %>% summarise("{{ what }}" := mean({{ what }}))
}
quatro_curly(mtcars, mpg)
#>        mpg
#> 1 20.09062

yutannihilation

diff -uprN caTools_archives/1.17.1.3/man/caTools-package.Rd caTools_archives/1.17.1.4/man/caTools-package.Rd
--- caTools_archives/1.17.1.3/man/caTools-package.Rd	2014-04-21 17:24:51.000000000 +0900
+++ caTools_archives/1.17.1.4/man/caTools-package.Rd	2020-01-14 00:24:16.000000000 +0900
@@ -50,6 +50,7 @@ trapz                   Trapezoid Rule N
            scale="always", comment="Maunga Whau Volcano")
   y = read.gif("volcano.gif", verbose=TRUE, flip=TRUE)
   image(y$image, col=y$col, main=y$comment, asp=1)
+  file.remove("volcano.gif")

   # test runmin, runmax and runmed

yutannihilation

It seems we need to wait ARROW-3543 for preserving timezones.

library(arrow)
#> 
#> Attaching package: 'arrow'
#> The following object is masked from 'package:utils':
#> 
#>     timestamp

yutannihilation

devtools::load_all("~/repo/R/ggplot2")
#> Loading ggplot2

p <- ggplot(base::data.frame(x = 1:3)) +
  geom_point(aes(x, x, colour = x))

get_colourbar <- function(nbin) {
  p <- p + scale_color_gradient(
 paste0("nbin =\n", nbin),

yutannihilation

library(grid)

g <- textGrob(
  label = c("1", "2", "3"),
  gp = gpar(
    fontsize = 1:3 * 50,
    cex = 1,
    fontfamily = "",
 fontface = "plain",

yutannihilation

library(httr)
library(rvest)
#> Loading required package: xml2

res <- read_html("https://mutable-instruments.net/modules/")

available_modules <- res %>%
  html_node("div.Grid-container[data-category='all']") %>%
 html_nodes("a.Grid-cell")

yutannihilation

library(ggplot2)

ggplot(mpg, aes(displ, hwy, colour = displ > 4)) +
  geom_point() +
  geom_smooth()
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

yutannihilation

let steps = 100;
let offset = 0;

function drawStripeCircle(steps) {
  clear();
  
  let r = min(width, height);
  let a = 2 * PI / steps;

  for (let i = 0; i < steps; i++) {

yutannihilation

library(ggplot2)

p <- ggplot(mtcars, aes(factor(cyl))) +
  geom_bar(aes(fill = factor(cyl)))

p + scale_x_discrete(limits = c("4", "8"))
p + scale_fill_discrete(limits = c("4", "8"))

cols <- c("8" = "red", "4" = "blue", "6" = "darkgreen", "10" = "orange")
p + scale_fill_manual(values = cols, limits = c("4", "8"))

yutannihilation

library(ggplot2)

`%||%` <- rlang::`%||%`

f1 <- body(geom_abline)
f2 <- body(function(x) sum(x))
f3 <- body(function(...) sum(x, ...))

any_dots <- function(call_args) {
  any(purrr::map_lgl(call_args, identical, quote(...)))