Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #abbreviation
- s = summary
- # Make + for strings
- "+" <-function(x, y=0){
- if (is.character(x)){
- paste(as.character(x),as.character(y), sep="")
- } else{
- base::"+"(x,y)
- }
- }
- #text evaluation
- eval_text = function(text)eval(parse(text=text))
- #install packages if not
- library <- function(package){
- package=deparse(substitute(package))
- if(!(package %in% installed.packages())) #if not installed yet.
- install.packages(package)
- eval_text("base::library("+package+")")
- }
- library(dplyr)
Add Comment
Please, Sign In to add comment