fortunes包 format包

rm(list=ls())


#语录
install.packages("fortunes")
library(fortunes)
?fortunes
fortune()
fortune(108)


#格式化字符串
install.packages("formatR")
library(formatR)
tidy_source(text = c("{if(TURE)1 else 2;if(FALSE){1+1","##comments","}else 2}"))


#格式化文件
messy = system.file("format","messy.R",package = "formatR")
messy
scr=readLines(messy)
cat(scr,sep="\n")
tidy_source(messy)


#保存格式化后的文件
f="messy_tidy.r"
tidy_source(messy,keep.bland.line = TRUE,file = f)
file.show(f)


#以字符串形式，执行R脚本
tidy_eval(text = c("a <-1+1;a","matrix(rnorm(10),5)"))


#只打印出函数定义，不打印函数细节
var
usage(var)
#控制显示宽度
usage(lm,width = 30)