testdat/errors/no-edge.R

In dkary/dataflow: Visualize R Code with Data Flow Graphs

# A script with no edges

data({
    n = 100
    x = rnorm(n)
    e = rnorm(n)
    abc = 1  # irrelevant and should be discarded
})

data({
    y = 3 + 10*x + e
})

simulation({
    a = 1:3
    b = sum(a)
    k = rpois(3, b)
})

plot(model({
    fit = lm(y ~ x)
    plot(fit)
}))

foo({
    # Here just to check the file dependencies
    source("foo.R")    
})

# bar(1:10)