Pathfinding Algorithms Visualizer using R! (I) Setting up the interactive grid

[This article was first published on R | TypeThePipe, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

R Shiny and GGplot2 pathfinding algorithm exploring grid map. It's an interactive ggplot2 plot.

Here you can find the R code. It’s an ‘in progress’ script. I will develop basic features like:

  • ploting/rendering code refactoring;

  • GGanimate with the algortihm steps moving forward;

  • and, of course, several pathfinding algorithms and evolutionary ones.

All these features and much more in following posts! Stay tuned!

Below you can find the main code you can use to template. As I said a refactor is needed, but you can extract te core logic and functionalities of the interactive R Shiny framework:

library (shiny)
library (ggplot2)
library (tidyverse)
source("helpers/ColourBorders.R")
source("helpers/PlotMapGrid.R")


ui <- fluidPage(
 mainPanel(
 column(12,offset = 5, 
 titlePanel("Pathfinding Algorithm Visualization using R!")),
 HTML(" "),
 column(12,offset = 5,HTML(" "),
 actionButton("go_search_actionButton", "Go Search!"),
 actionButton("clean_all_actionButton", "Clean All")),
 HTML(" "),
 column(12,offset=5, plotOutput("map_grid_plotOutput",
 click="map_grid_plotOutput_click"))
 ))


server <- function(input, output){
 
 ## Initial params
 max_steps <- 50
 matrix_x_size <- 20
 matrix_y_size <- 20
 grid_map_reactive <- matrix(ncol = matrix_x_size,
 nrow = matrix_y_size,
 data = 0) 
 
 ## Colours Dict (in progress)
 # 1- Wall
 # 2- Init
 # 3- Obj
 # 4- Step done
 # 5- Goal achieved
 
 # Initialize objts
 grid_map_reactive[4,15] <- 3 # obj
 grid_map_reactive[17,3] <- 2 # init
 initial_step <- which(grid_map_reactive == 2,
 arr.ind = TRUE)
 grid_map_reactive <- ColourBorders(grid_map_reactive, 1) # rounding walls
 react_df <- reactiveValues(df = grid_map_reactive, # reactive init
 orig = grid_map_reactive,
 walls = grid_map_reactive)
 
 observe({
 if(!is.null(input$map_grid_plotOutput_click)){
 new_x_value <- trunc(input$map_grid_plotOutput_click$x)
 new_y_value <- trunc(input$map_grid_plotOutput_click$y)
 
 if(between(new_x_value,2,matrix_x_size-1) & between(new_y_value,2,matrix_y_size-1)){
 isolate(react_df$df[new_y_value,new_x_value] <- if_else(react_df$df[new_y_value,new_x_value]==0,
 1,0))
 isolate(react_df$df[4,15] <- 3)
 isolate(react_df$df[17,3] <- 2)
 isolate(react_df$df[17,3] <- 2)
 isolate(react_df$walls <- react_df$df)
 
 output$map_grid_plotOutput <- renderPlot({
 
 PlotMapGrid(react_df$df,
 matrix_x_size,
 matrix_y_size)
 
 }, width=600, height=600,position="center")
 }}
 }) 
 
 # Go search! Pseudo-random pathfinding algortihm
 observeEvent(input$go_search_actionButton,{
 
 if(nrow(which(react_df$df == 4, arr.ind = TRUE))>=1) react_df$df <- react_df$walls # click search without clean
 current_step <- initial_step 
 obj <- which(react_df$df == 3, arr.ind = TRUE)
 previous_steps_with_opt <- current_step
 
 for(i in 1:max_steps){
 next_step_col <- tribble(~row, ~col,
 current_step[1]+1,current_step[2]+0,
 current_step[1]+0,current_step[2]+1,
 current_step[1]-1,current_step[2]+0,
 current_step[1]+0,current_step[2]-1)
 next_values <- NULL
 
 for(r in 1:nrow(next_step_col)){
 next_values <- c(next_values,
 react_df$df[next_step_col[[r,1]],
 next_step_col[[r,2]]])
 }
 if(3 %in% next_values){
 
 current_step <- next_step_col[next_values==3,] %>%
 as.matrix()
 
 react_df$df[current_step] <- 5
 
 break()
 
 } else if(0 %in% next_values){
 
 if(sum(next_values==0)>1){
 
 previous_steps_with_opt <- current_step
 
 }
 
 current_step <- next_step_col[next_values==0,] %>% 
 sample_n(1) %>% 
 as.matrix()
 
 react_df$df[current_step] <- 4
 
 } else {
 
 current_step <- previous_steps_with_opt
 
 }
 }
 })
 
 # Reset all
 observeEvent(input$clean_all_actionButton,{
 
 react_df$df <- react_df$orig
 react_df$walls <- react_df$orig
 
 })
 
 # First panel
 output$map_grid_plotOutput <- renderPlot({
 
 PlotMapGrid(react_df$df,
 matrix_x_size,
 matrix_y_size)
 
 }, width=550, height=600,position="center")
 
}


shinyApp(ui=ui, server = server)

Here are the helpers to construct the grid:

You can find the Pathfinding Visualization using R series on TypeThePipe


To leave a comment for the author, please follow the link and comment on their blog: R | TypeThePipe.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)