Skip to content

Instantly share code, notes, and snippets.

View yutannihilation's full-sized avatar
🍣
Nobody loves you

Hiroaki Yutani yutannihilation

🍣
Nobody loves you
516 followers · 232 following
View GitHub Profile
@yutannihilation
yutannihilation / tidymodels_xgboost_early_stopping.md
Created May 6, 2020 04:25

Based on the example code on https://www.tidymodels.org/learn/models/parsnip-nnet/

library(tidymodels)
#> ─ Attaching packages ──────────────────────────────────────────── tidymodels 0.1.0 ─
#> ✓ broom     0.5.6          ✓ recipes   0.1.12    
#> ✓ dials     0.0.6          ✓ rsample   0.0.6     
#> ✓ dplyr     0.8.5          ✓ tibble    3.0.1     
#> ✓ ggplot2   3.3.0.9000     ✓ tune      0.1.0     
#> ✓ infer     0.5.1          ✓ workflows 0.1.1
@yutannihilation
yutannihilation / arrow_install.sh
Last active November 22, 2020 06:46
sudo pacman -S libutf8proc
cd cpp
mkdir build
cd build
ARROW_BUILD_TOOLCHAIN=/usr ORC_HOME=/usr DOUBLE_CONVERSION_HOME=/usr cmake \
.. -DARROW_DEPENDENCY_SOURCE=SYSTEM \
-DARROW_PYTHON=ON \
-DCMAKE_BUILD_TYPE=Release \
@yutannihilation
yutannihilation / 和牛.md
Created April 12, 2020 08:38 
library(estatapi)
#> このサービスは、政府統計総合窓口(e-Stat)のAPI機能を使用していますが、サービスの内容は国によって保証されたものではありません。
library(dplyr, warn.conflicts = FALSE)
library(ggplot2)

d <- estat_getStatsData(appId = keyring::key_get("estatapi"), statsDataId = "0003368797")
#> Fetching record 1-2120... (total: 2120 records)

d %&gt;%
@yutannihilation
yutannihilation / different_problems.md
Created April 11, 2020 13:14 
library(readr)

bad_df1 <- readr::read_csv("a,b\n1,2\n-,2", col_types = "nn")
#> Warning: 1 parsing failure.
#> row col expected actual         file
#>   2   a a number      - literal data
bad_df2 <- readr::read_csv("a,b\n1,2\n2,-", col_types = "nn")
#> Warning: 1 parsing failure.
#&gt; row col expected actual file
@yutannihilation
yutannihilation / delika_client.md
Last active April 6, 2020 15:22 
library(httr)

delika_new_jwt <- function() {
  # TODO
  browseURL("https://api.delika.io/v1/auth/token")
}

delika_verb <- function(verb, path, ...) {
  secret <- jsonlite::fromJSON("~/.delika/token.json")
@yutannihilation
yutannihilation / 東京23区推移0403.csv
Last active April 5, 2020 13:12
We can make this file beautiful and searchable if this error is corrected: No commas found in this CSV file in line 0.
Moved to: https://github.com/yutannihilation/covid19-tokyo-daily-de-facto-population
@yutannihilation
yutannihilation / chromote_wait_for_error.md
Created March 1, 2020 08:33 
library(chromote)

Sys.setenv(CHROMOTE_CHROME="/usr/bin/chromium")

b <- ChromoteSession$new()
b$Page$navigate("https://www.instagram.com/")
#> $frameId
#> [1] "7A4B060856C628A9F30A449F9F443F42"
#&gt;
@yutannihilation
yutannihilation / capture_ggplot2.md
Created January 31, 2020 02:47 
library(ggplot2)
library(rlang)

ggplot <- function(...) {
  f <- function(...) list(clone = f)
  structure(
    list(
      call = sys.call()
 ),
@yutannihilation
yutannihilation / crash_course_curly_curly.md
Last active January 29, 2020 03:08 
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
yutannihilation / caTools-package.diff
Created January 14, 2020 13:52
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