bhaskarvk

Keybase proof

I hereby claim:

• I am bhaskarvk on github.
• I am bhaskarvk (https://keybase.io/bhaskarvk) on keybase.
• I have a public key whose fingerprint is E92A 38BA A931 0D68 A2F5 4C30 B647 68F2 BF54 8FD9

To claim this, I am signing this object:

bhaskarvk

# Vectorized functions to convert ipv4 to/from integer
require(bitops) # required for unsigned int bitwise ops

int_to_ipv4 <- function(i) {
  return(lapply(i,function(x) {
    paste(bitAnd(bitShiftR(x,c(24,16,8,0)),0xFF),collapse='.')
    }))
}

ipv4_to_int <- function(i) {

bhaskarvk

rInstGithub() {
    Rscript -e "devtools::install_github('$1')"
}
rInstBob() {
    rInstGithub "hrbrmstr/$1"
}
rInstKent() {
    rInstGithub "timelyportfolio/$1"
}
rInstHadley() {

bhaskarvk

diff --git a/src/launcher.cc b/src/launcher.cc
index d8d04b6..835b149 100644
--- a/src/launcher.cc
+++ b/src/launcher.cc
@@ -73,7 +73,11 @@ int main(int argc, char **argv) {
 int findBaseDir(std::string* shinyServerPath) {
 
   char execPath[MAXPATHLEN + 1];
+#ifdef __sun
+  int cn = snprintf(execPath, MAXPATHLEN + 1, "/proc/%d/path/a.out", getpid());

bhaskarvk

# Sample df with missing values
df <- data.frame(col1=sample(c('','Y','N'),100,replace = TRUE),
                 col2=sample(c('', as.character(0:9)),100,replace = TRUE),
                 stringsAsFactors = FALSE)

cols <- colnames(df) # store colnames

lapply(df,table) # check levels

df.forFor <- df # to be fixed with a for loop

bhaskarvk

l1 <- list(as.list(1:4),
           as.list(11:15))
l2 <- list(list('a.1'=1,'a.2'=2,'a.3'=3,'a.4'=4),
           list('b.1'=1,'b.2'=2,'b.3'=3,'b.4'=4,'b.5'=5))
lapply(l1,names) # should be nulls
lapply(l2,names) # should be 'a.1' ...

# Use copy so as to leave l1 intact
t1 <- l1

bhaskarvk

# You will need to generate images of varying size using ImageMagic's convert utility on the shell.
# The shell code below will not work under Windows. Sorry! bash-only.
# Run the following shell code to generate some random images
# mkdir -p ./data/RandomNoise
# (cd ./data/RandomNoise && for i in `seq 100 100 4000`; do convert -size ${i}x${i} xc:   +noise Random   random-${i}_$i.png;done)

# You'll need the following R packages
# dplyr, purrr, magick, imager, magrittr, gridExtra, ggplot2, stringr

d <- './data/RandomNoise'

bhaskarvk

"reading_function","Iteration","File.Size","Object.Size","Mem.Increase","User.Time","System.Time","Elapsed.Time"
"magick::image_read",1,1576105,1049048,1051096,0.01400000000001,0.00200000000000955,0.0239999999994325
"magick::image_read",1,1994600,1327576,1329448,0.0209999999999582,0.00199999999999534,0.032999999999447
"magick::image_read",1,2462383,1638872,1640744,0.0240000000000009,0.00200000000000955,0.0399999999999636
"magick::image_read",1,2979319,1982936,1984808,0.0300000000000864,0.00300000000000011,0.0480000000006839
"magick::image_read",1,3545586,2359768,2361640,0.0359999999999445,0.00400000000000489,0.0560000000004948
"magick::image_read",1,4160985,2769368,2771240,0.0399999999999636,0.00400000000000489,0.0619999999998981
"magick::image_read",1,4825702,3211736,3213608,0.0489999999999782,0.00500000000000966,0.0750000000007276
"magick::image_read",1,5539565,3686872,3688744,0.0570000000000164,0.00600000000000023,0.0879999999997381
"magick::image_read",1,6302748,4194776,4196648,0.0490000000000919,0.001999

bhaskarvk

library(magrittr)
# You will also nead
# stringr, dplyr, purrr, pryr, tidyr, magick
# Install magic with devtools::install('ropensci/magick') CRAN copy won't work.


# Shell code to generate some random images
# mkdir -p ./data/RandomNoise
# (cd ./data/RandomNoise && for i in `seq 512 64 4096`; do convert -size ${i}x${i} xc: +noise Random random-${i}_$i.png; done)

bhaskarvk