Update iteration end message in kin_r_library.R

This commit is contained in:
Max Luebke 2024-04-02 14:37:20 +00:00
parent 7d6871a180
commit c7b9ab0b53

View File

@ -93,7 +93,7 @@ master_iteration_end <- function(setup,iter) {
msgm("results stored in <", nameout, ">")
}
}
msgm("done iteration", iter, "/", 1)
msgm("done iteration", iter, "/", length(setup$timesteps))
setup$iter <- setup$iter + 1
return(setup)
}