r - 缩进代码行 'n' 个空格

Question

为了使代码在此处被识别为代码，它必须缩进四个空格。这可以通过手动或使用括号图标或刻度线来完成。如果我想通过 R 实现这一点怎么办？显然这是可以做到的(看看formatR)。用最少的代码编写来解决这个问题的方法是什么？

那么对于以下几行(一个数据框和一个函数)，使用 R 将每行缩进 4 个空格的最佳方式(最少的代码)是什么？

foo<-function(x,y){
   z<-x*y
   super.z<-z^2
   return(super.z)
}

和

     id hs.grad  race gender age
1   ID1     yes asian female  32
2   ID2     yes white female  30
3   ID3     yes white female  34
4   ID4     yes black female  25
5   ID5      no white   male  19

Answer 1

这是一个小函数，它将以与 StackOverflow 兼容的方式格式化对象:

formatSO <- function(x) {
  y <- get(x, parent.frame())
  d <- deparse(y)

  cat("   ", x, "<-", d[1], "\n")
  cat(paste("    ", d[-1], "\n", sep=""), sep="")
}

并尝试一下:

> foo<-function(x,y){
+    z<-x*y
+    super.z<-z^2
+    return(super.z)
+ }
> formatSO("foo")
    foo <- function (x, y)  
    {
        z <- x * y
        super.z <- z^2
        return(super.z)
    }
> x <- 5:3
> formatSO("x")
    x <- c(5L, 4L, 3L)