makeup your owe research project

mkdir.R

#########################################
# Name: My Research Project Directory
# Creation Date: July 8, 2014
# Update Date:   June 17, 2015
# Version: 0.1.2
# Author: Shinya Uryu
# Gist: https://gist.github.com/uribo/51602ed9295b730c5bc2
# Description: Create research project structure
# Usage:
#       0. install.packages(tcltk)
#       1. load this mk.dir function
#       2. run `mk.dir`
#       3. choose or create own project directory :)
#########################################
#' @param path a character vector.
mk.dir <- function(path = getwd()){
  dir.create(paste0(path, "Alias"))
  dir.create(paste0(path, "Analysis"))
    dir.create(paste0(path, "Analysis/figure"))
    dir.create(paste0(path, "Analysis/table"))
  dir.create(paste0(path, "Data"))
    dir.create(paste0(path, "Data/original"))
    dir.create(paste0(path, "Data/sheet"))
  dir.create(paste0(path, "Doc"))
  dir.create(paste0(path, "Images"))
  dir.create(paste0(path, "Paper"))
    dir.create(paste0(path, "Paper/draft"))
      dir.create(paste0(path, "Paper/draft/LateX"))
      dir.create(paste0(path, "Paper/draft/Graphics"))
      dir.create(paste0(path, "Paper/draft/Revise"))
      file.create(paste0(path, "Paper/draft/Changelog.md"))
      file.create(paste0(path, "Paper/draft/README.md"))
      file.create(paste0(path, "Paper/draft/Graphics.md"))
    dir.create(paste0(path, "Paper/submission"))
  dir.create(paste0(path, "Poster"))
  dir.create(paste0(path, "Slide"))
  file.create(paste0(path, "README.md"))
}