기존에 원래 사용하던 PGP key pair가 없을경우 새로 만들어야한다. 이미 key pair가 있을경우, 비밀키를 컴퓨터에 다운로드 해줘야한다.
$ gpg --generate-key
library(dplyr) | |
library(NonCompart) | |
tblNCA(Theoph, | |
dose = Theoph %>% | |
mutate(actual_dose = Wt*Dose) %>% | |
select(Subject, actual_dose) %>% | |
unique() %>% | |
.$actual_dose) |
# http://zeroset.mnim.org/2015/01/07/flatten-pdfs-with-ghostscript/ | |
# https://unix.stackexchange.com/questions/162922/is-there-a-way-to-flatten-a-pdf-image-from-the-command-line | |
# There should be `flat` sub-directory. | |
for file in *.pdf; do | |
gs -dSAFER -dBATCH -dNOPAUSE -dNOCACHE -sDEVICE=pdfwrite \ | |
-sColorConversionStrategy=/LeaveColorUnchanged \ | |
-dAutoFilterColorImages=true \ | |
-dAutoFilterGrayImages=true \ |
knitr::write_bib(c('caffsim', 'NonCompart', 'ncar'), 'temp.bib') | |
capture.output(bibtex::read.bib('temp.bib'), file = 'temp.txt') | |
myBib <- readLines('temp.txt') | |
myBib[myBib == ''] <- '\n\n' | |
paste(gsub('_', '',myBib), collapse = '') |
library(ReporteRs) | |
options('ReporteRs-fontsize' = 10) | |
potsub <- function(char) pot(char, textProperties(vertical.align = 'subscript')) | |
potsuper <- function(char) pot(char, textProperties(vertical.align = 'superscript')) | |
flexThis <- function(df){ | |
df %>% | |
FlexTable(header.columns = TRUE) %>% | |
setFlexTableBorders(inner.vertical = mystyle$no, inner.horizontal = mystyle$std, | |
outer.vertical = mystyle$no, outer.horizontal = mystyle$big) |
library(shiny) | |
library(ggplot2) | |
dataset <- diamonds | |
fluidPage( | |
titlePanel("PEET2017"), | |
sidebarPanel( |
#!/bin/bash | |
# Script for installing tmux on systems where you don't have root access. | |
# tmux will be installed in $HOME/local/bin. | |
# It's assumed that wget and a C/C++ compiler are installed. | |
# exit on error | |
set -e | |
TMUX_VERSION=1.8 |
As configured in my dotfiles.
start new:
tmux
start new with session name: