Enhancement Request: Animation for Individual game about rchess

[pssguy]

Actually, the new magick package may be better approach

[jbkunst]

Hi @pssguy

Tell me if this looks good to you.

library("magick")
get_gif <- function(pgn, scale = "400x400", fps = 1) {

  fens <- get_fens(pgn)
  # fens <- head(fens)

  fens %>% 
    map(ggchessboard) %>% 
    map_chr(function(p){ # p <- sample(plots, size = 1)[[1]]
    fl <- tempfile(fileext = ".jpg")
    ggplot2::ggsave(p, file = fl)
    fl
  }) %>% 
    image_read() %>% 
    image_scale(geometry = scale) %>% 
    image_animate(fps = fps)


}

gif <- get_gif(pgn)

image_write(gif, "anim.gif")

I need to change the font to have a nicer look but is a start.

I you're ok I will proceed to add this utilities into the package! :B

[pssguy]

This is amazing work
Any reason you chose jpg over png?

Currently it is set to fps=1. I found 0.2 gave me time to take in moves better (same file size)

Ideally, somehow for users there would be controls to pause, set speed etc. but I have no idea if this is even feasible

[jbkunst]

No reason, just copy paste code from somewhere.

Not sure yet too how to implement parameters for have control in the image_animate. I'll take some time to see if this is feasible in a simple way.

[sjorsvanheuveln]

What about plotting this animation in R-Studio? So not saving as a file but real time plot a game. I cannot do it, as the plot won't refresh in a for loop. How to solve this?

[jbkunst]

I guess it's possible wrap the image in a html div using htmltools package and then use the browseable function to send it to the viewer.

Let me if you can try this idea.