Performance improvement of specific use case: displaying a grid of integer values about nara HOT 1 CLOSED

  n_colours <- 5
  my_palette <- hsv(seq(0, 1, length.out = n_colours))
  w <- 200
  h <- 100

  m <- matrix(data = sample(seq_len(n_colours), size = w * h, replace = TRUE), nrow = h)
  
  dst <- nr_new(w, h);
  
  bench::mark(
    {matrix(my_palette[m], nrow = h) |> raster_to_nr()},
    matrix_to_nr(m, my_palette),
    matrix_to_nr(m, my_palette, dst)
  )