Skip to content

Instantly share code, notes, and snippets.

View hrbrmstr's full-sized avatar
💤
#tired

boB Rudis hrbrmstr

💤
#tired
1.8k followers · 785 following
View GitHub Profile
@hrbrmstr
hrbrmstr / mikrotik-coinhive-asn-aso.csv
Created August 3, 2018 12:39
asn org iso3c n
AS262661 Linknet Telecomunicaçoes BRA 2771
AS262988 Pombonet Telecomunicações e Informática BRA 2439
AS262296 Windx Networks BRA 2382
AS52909 Vox Telecomunicações do Brasil Ltda BRA 1518
AS263030 CNET Provedor de Internet Ltda ME BRA 1492
AS263468 Rapnet Comunicacao Multimidia Ltda BRA 1460
AS262579 GE Network Provedor de Internet LTDA BRA 1455
AS264479 Turbozone Internet BRA 1450
AS263991 Fernanda Cristina Ruiz Matiazzo - Me BRA 1445
@hrbrmstr
hrbrmstr / AS50607.csv
Created July 9, 2018 09:56
created_at x event hj_asn hj_prefix hj_name by_asn by_org day
2018-07-09T09:27:23Z BGP HJ AS3491 63.222.5.46/32 PCCW Global, Inc. AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T09:27:20Z BGP HJ AS22414 208.82.237.226/32 Craigslist, Inc. AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T09:27:17Z BGP HJ AS46179 205.196.120.8/32 MediaFire, LLC AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T09:27:15Z BGP HJ AS32934 157.240.1.35/32 Facebook, Inc. AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T08:11:34Z BGP HJ AS41231 91.189.94.16/32 Canonical Group Limited AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T07:42:50Z BGP HJ AS45753 137.59.22.228/32 NETSEC NOC AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T06:28:54Z BGP HJ AS137915 103.87.240.1/32 ZTC-AS-AP Zero Technology Co. ,LIMITED, HK AS50607 Stowarzyszenie e-Poludnie 2018-07-09
2018-07-09T05:02:10Z BGP HJ AS57976 24.105.29.40/32 Blizzard Entertainment, Inc AS50607 Stowarzyszenie e-Poludnie 2018-07-09
@hrbrmstr
hrbrmstr / pmkor-cvt.R
Last active July 2, 2018 12:04
library(stringi)
library(pdftools)
library(tidyverse)
# we're going to process each page and read_fwf will complain violently
# when it hits header/footer rows vs data rows and we rly don't need to
# see all those warnings
read_fwf_q <- quietly(read_fwf)
# grab the PDF text
@hrbrmstr
hrbrmstr / five-rounds.csv
Created June 27, 2018 12:44
sample_id B1 B2 B3 reading_date ward service_line_material
2 8.1 10.8 2.8 aug-15 9 Unknown
4 1.1 BD BD aug-15 1 Copper
7 7.2 1.4 BD aug-15 9 Copper
8 40.6 9.7 6.1 aug-15 9 Lead
12 10.6 1.0 1.3 aug-15 9 Unknown
15 4.4 BD BD aug-15 9 Copper
16 24.4 8.8 4.3 aug-15 5 Galvanized
17 6.6 5.8 1.4 aug-15 2 Unknown
18 4.1 1.1 1.1 aug-15 7 Copper
@hrbrmstr
hrbrmstr / title-align.R
Created June 9, 2018 22:08
library(grid)
library(hrbrthemes)
library(tidyverse)
ggplot(mtcars, aes(wt, mpg)) +
geom_point() +
labs(title = "A Title", subtitle = "A Subtitle") +
theme_ipsum_rc(grid="XY") -> gg
gb <- ggplot_build(gg)
@hrbrmstr
hrbrmstr / gitblab-user-prj-pub.R
Created June 7, 2018 15:26
mkpub <- function(who = "hrbrmstr", prj_name) {
httr::PUT(
url = sprintf("https://gitlab.com/api/v4/projects/%s%%2F%s", who, prj_name),
query = list(
visibility = "public",
private_token = Sys.getenv("GITLAB_PAT")
)
) -> res
httr::content(res, as="parsed")
}
@hrbrmstr
hrbrmstr / gh-migrate.r
Created June 6, 2018 10:25
gh_migrate("YOUR_GITHUB_USERNAME", "GITHUB_REPO")
gitea_user <- function(gitea_username,
api_endpoint = Sys.getenv("GITEA_BASE_URL"),
gitea_token = Sys.getenv("GITEA_PAT")) {
require("httr", quietly = TRUE)
require("jsonlite", quietly = TRUE)
httr::GET(
@hrbrmstr
hrbrmstr / viewer-extended.r
Last active June 1, 2018 17:51
options(viewer = function (url, height = NULL, append=FALSE) {
# USE AN ENVIRONMENT SEPARATE FROM GLOBAL BUT ACCESSIBLE
# THIS WILL MAINTAIN CURRENT OUTPUT FILE LOCATION
# IF append IS TRUE THEN INSERT THE NEW HTML AT THE END OF THE FILE
# THERE ARE LOTS OF WAYS TO DO THIS. ONE IS IFRAME-ing EACH AS THEY
# ARE APPENDED. ANOTHER IS TO JUST SMUSH THEM ALL TOGETHER
# MAKE url THE FILE WE JUST MODIFIED
@hrbrmstr
hrbrmstr / cran-r-pkgs-system-calls.R
Created May 31, 2018 01:45
system(paste(".", pathtoms, "ms 10", 1000*numloc, "-t tbs -r tbs tbs -eN tbs tbs -eN tbs tbs < bottpost |", ".", pathtoms, "sample_stats > ss_postb.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs < const |", ".", pathtoms, "sample_stats > afr-const.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs -eN tbs tbs < exp | ", ".", pathtoms, "sample_stats > afr-exp.txt", sep=""))
system(paste(".", pathtoms, "ms 10", formatC(numsim*numloc,digit=7), " -t tbs -r tbs tbs -eN tbs tbs -eN tbs tbs < bott | ", ".", pathtoms, "sample_stats > afr-bott.txt", sep=""))
system(paste("jags ",run.file,sep=""))
system("cmd /c ver",intern=TRUE,invisible=TRUE)
system("uname -rps",intern=TRUE)
system("rm Rlisting001.tmp")
system("rm Rlisting001.tmp")
system("rm Rlisting001.tmp")
@hrbrmstr
hrbrmstr / infix_functions.R
Last active April 11, 2022 02:02
`%||%` <- function(a, b) if (is.null(a)) b else a
`%diag*%` <- function(d, X) d * X
`%*diag%` <- function(X, d) t(t(X) * d)
`%nin%` <- function(x, table) !(x %in% table)
`%sub_in%` <- function(x, table) x[x %in% table]