I\'ve got this matrix:
matrix_x_size <- 16 matrix_y_size <- 16 grid_map_reactive <- matrix(ncol = matrix_x_size, nrow = m