myprints <- capture.output({
for(i in 1:5)
{
for(j in 1:2)
{
cat(i*j,"\n");
}
}})
myprints
cat(paste0(myprints,collapse = "\n"))
probably a better way to think about such things >
mydata1 <- expand.grid(i=1:5,j=1:2)
mydata2 <- dplyr::mutate(mydata1, result=i*j)
print(dplyr::select(mydata2,result))