In kongdd/Ipaper: Collection of personal practical R functions

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

library(Ipaper)

Ipaper

Installation

# devtools::install_github("kongdd/Ipaper")
devtools::install_git("https://gitee.com/adv-r/Ipaper")
# or from gz file
install.packages("../Ipaper_0.1.5.9000.tar.gz", repos = NULL, type = "source", dependencies = TRUE)
# $sudo apt-get install libfftw3-dev

FUNCTIONS

`rstudio` shortcuts addin

| Description | Shortcut | | ------------------------------------------------- | ------------ | | copy lines at the cursor position (sublime style) | Alt+c | | clip lines at the cursor position | Alt+x | | Insert %<>% | Ctrl+Shift+, | | Insert %do% {} | Ctrl+Shift+D | | Insert %in% {} | Ctrl+Shift+I |

Visualization

draw.colorkey: modified from lattice, add triangle head and tail

geom_boxplot2: boxplot without outlier

ggplot_legend: get the legend (grid obj) of ggplot object
write_fig: Unify figure writing functions, e.g. png, pdf, tif, svg

Parallel functions

InitCluster, killCluster.
llply_par, apply_par

Base tools

code, smerge, subl, github: open app at assigned directory
mkdir, touch
dir.show: open at assigned directory in explorer
runningId: print the running ID in the console
fprintf: c style fprintf
melt_list, melt_tree, listk, dcast2

df <- data.frame(year = 2010, day = 1:2, month = 1, site = "A")
l  <- list(a = df, b = df)
melt_list(l, "id")

l2 <- listk("type1" = l, "type2" = l)
melt_tree(l2, c("type", "id"))