# NOT RUN {
## Load FloodMapper package
library(FloodMapper)
s_return <- NA
## Assume that the current model run with a name of "Lafayette_1km"
## has been completed successfully, you can run the following
## command to create an animation in *.gif format.
# }
# NOT RUN {
s_return <- FM.animate("Lafayette_1km", workdir = tempdir())
# }
# NOT RUN {
## Check if there are any errors
if (!is.na(s_return)) {
if (s_return != "") {
cat("Creating animation is failed because of the following error:\n")
cat(s_return)
} else {
cat("Creating animation is successful!\n")
}
}
# }
Run the code above in your browser using DataLab