randy3k

list of available commands: PowerOff, Input, GGuide, EPG, Favorites, Display, Home, Options, Return, Up, Down, Right, Left, Confirm, Red, Green, Yellow, Blue, Num1, Num2, Num3, Num4, Num5, Num6, Num7, Num8, Num9, Num0, Num11, Num12, VolumeUp, VolumeDown, Mute, ChannelUp, ChannelDown, SubTitle, ClosedCaption, Enter, DOT, Analog, Teletext, Exit, Analog2, *AD, Digital, Analog?, BS, CS, BSCS, Ddata, PicOff, Tv_Radio, Theater, SEN, InternetWidgets, InternetVideo, Netflix, SceneSelect, Mode3D, iManual, Audio, Wide, Jump, PAP, MyEPG, ProgramDescription, WriteChapter, TrackID, TenKey, AppliCast, acTVila, DeleteVideo, PhotoFrame, TvPause, KeyPad, Media, SyncMenu, Forward, Play, Rewind, Prev, Stop, Next, Rec, Pause, Eject, FlashPlus, FlashMinus, TopMenu, PopUpMenu, RakurakuStart, OneTouchTimeRec, OneTouchView, OneTouchRec, OneTouchStop, DUX, FootballMode, Social

randy3k

tf <- tempfile()
f <- fifo(tf, "w+b", blocking = TRUE)

p <- callr::r_bg(function(tf) {
        f <- fifo(tf, "wb", blocking = TRUE)
        x <- rnorm(1e6)
        b <- serialize(x, NULL)
        writeBin(length(b), f)
        writeBin(b, f)
        close(f)

randy3k

# to show qr
# docker exec -it wireguard /app/show-peer 1
version: "2.1"
services:
  wireguard:
    image: linuxserver/wireguard
    container_name: wireguard
    cap_add:
      - NET_ADMIN
      - SYS_MODULE

randy3k

location ~ ^/webcam/(.*) {
    rewrite ^/webcam/(.*) /octopi/webcam/$1 redirect;
}

location /octopi/ {
    if ($scheme != "https") {
        rewrite ^ https://$host$uri permanent;
    }
    rewrite ^/octopi/(.*)$ /$1 break;
    proxy_pass http://192.168.0.167;

randy3k

# What's the fastest way to determine the number of rows of a CSV in R?
# ...Reading the entire CSV to only get the dimensions is likely too slow. Is there a faster way?
# Benchmarks done on a EC2 r3.8xlarge
# Cowritten with Abel Castillo <github.com/abelcastilloavant>

m <- 1000000
d <- data.frame(id = seq(m), a = rnorm(m), b = runif(m))
dim(d)
# [1] 1000000       3
pryr::object_size(d)

randy3k

Homebrew build logs for rstudio-server on Ubuntu 16.04.6 LTS
Build date: 2020-06-03 00:37:06

randy3k

Homebrew build logs for boost-rstudio-server on Ubuntu 20.04 LTS
Build date: 2020-06-02 18:07:27

randy3k

Homebrew build logs for rstudio-server on Ubuntu 20.04 LTS
Build date: 2020-06-02 22:36:55

randy3k

library(httpuv)
library(httr)
library(stringr)

app <- list(
    call = function(req) {
        paths <- str_split(req$PATH_INFO, "/")[[1]]
        owner <- paths[2]
        repo <- paths[3]
        path <- str_c(paths[4:length(paths)])

randy3k

@@ -1,1 +1,1 @@
  /*
   * launcher.cc
   *
   * Copyright (C) 2009-13 by RStudio, Inc.
   *
   * This program is licensed to you under the terms of version 3 of the
   * GNU Affero General Public License. This program is distributed WITHOUT
   * ANY EXPRESS OR IMPLIED WARRANTY, INCLUDING THOSE OF NON-INFRINGEMENT,
   * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Please refer to the