Arreglo

En los correctores.R, al hacer source("hacemagia.R") se sobreescribía la
data.frame magic, por lo que se agregó el argumento "local = TRUE".