R/development/review/spawnr/example_spawn_file.R

In bfatemi/ninjar: Data Science Utility Belt

library(data.table)
library(findata)
library(rlang)
library(ninjar)



DT <- data.table(iris)




start_fork()


for(i in 1:5){
  print(paste0("RUNNING FORKED SECTION... (", i, "/5)"))
  Sys.sleep(2)
}

stop_fork()


for(i in 1:5){
  print(paste0("PARENT SCRIPT CONTINUES TO RUN... (", i, "/5)"))
  Sys.sleep(2)
}

end_run()