Merge pull request jtleek#75 from rdpeng/master

Coding standards lecture

02_RProgramming/CodingStandard/indenting.R

@@ -1,30 +1,30 @@
 cc <- function(expr, cachedir = ".cache", srcfile = NULL, ...) {
-  if(!identical(globalenv(), parent.frame())) 
-    stop("'cc' must be called from the global environment")
-  subexpr <- substitute(expr)
-  exprtext <- deparse(subexpr, width.cutoff = 60)
-  
-  if(is.null(srcfile))
-    srcfile <- file.path(tempdir(), hash(exprtext))
-  writeLines(exprtext, srcfile)
-  cacher(srcfile, cachedir, ...)
+ if(!identical(globalenv(), parent.frame())) 
+  stop("'cc' must be called from the global environment")
+ subexpr <- substitute(expr)
+ exprtext <- deparse(subexpr, width.cutoff = 60)
+
+ if(is.null(srcfile))
+  srcfile <- file.path(tempdir(), hash(exprtext))
+ writeLines(exprtext, srcfile)
+ cacher(srcfile, cachedir, ...)
 }
 
 createLogFile <- function(cachedir, logfile, srcfile) {
-  if(is.null(logfile)) {
-    logfile <- file.path(logdir(cachedir),
-                         paste(basename(srcfile), "log", sep="."))
-    file.create(logfile)
-  }
-  else if(is.na(logfile))
-    logfile <- stderr()
-  else
-    file.create(logfile)
-  setConfig("logfile", logfile)
+ if(is.null(logfile)) {
+  logfile <- file.path(logdir(cachedir),
+                       paste(basename(srcfile), "log", sep="."))
+  file.create(logfile)
+ }
+ else if(is.na(logfile))
+  logfile <- stderr()
+ else
+  file.create(logfile)
+ setConfig("logfile", logfile)
 }
 
 identicalFiles <- function(x, y) {
-  ## Are the contents of the two files the same?
-  checksum <- c(hashFile(x), hashFile(y))
-  identical(checksum[1], checksum[2])
+ ## Are the contents of the two files the same?
+ checksum <- c(hashFile(x), hashFile(y))
+ identical(checksum[1], checksum[2])
 }