R/get_particle_values.R

In JomaMinoza/LandslideR: LandslideR: Ultradiscrete Cellular Automata Model for Generalized Mass Failure

#' get_particle_values - Retrieve Particle Values from Model Experiment
#'
#' @param topo
#' @param particles
#'
#' @return
#' @export
#'
#' @examples
#'
#'
get_particle_values <- function(topo, particles){
  dimensions <- dim(topo)
  resulting_particles <- topo

  for(lon in 1:dimensions[1]){
    for(lat in 1:dimensions[2]){
      resulting_particles[lon,lat] <- particles[[lon,lat]]$value
    }
  }

  return(resulting_particles)
}