Solution Template (01)

In autoharp: Semi-Automatic Grading of R and Rmd Scripts

library(autoharp)
library(rlang)

rf <- function(n) {
  U <- runif(n)
  X <- U^(1/4)
  X
}
X <- rf(1e4)

lenX <- (length(X) == length(.X))
lenfn <- (length(fn_fmls(rf)) == length(fn_fmls(.rf)))

mean.X <- mean(X)
sd.X <- sd(X)

f1 <- rmd_to_forestharp(.myfilename)
for_loop <- fapply(f1, detect_for_in_fn_def, fn_name = "rf", combine=TRUE, 
                   combiner_fn = function(x) any(unlist(x)))

autoharp documentation built on Nov. 13, 2021, 1:06 a.m.