The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

svg-animation

library(emphatic)
library(dplyr)
library(tidyr)

# dimensions of data.frame
w <- 8
h <- 20

# Create an emphatic object
create_sinus <- function(xoff, yoff) {
  expand.grid(x=1:w, y=1:h) |>
    as.data.frame() |>
    mutate(val = cos((x - w/2)/w + xoff) + sin((y - h/3)/h + yoff) ) |>
    mutate(val = round(val, 3)) |>
    spread(x, val) |>
    select(-y) |>
    setNames(sprintf("% 7i", seq(w))) |>
    hl(ggplot2::scale_color_gradient2(), cols = all())
}

# Test
create_sinus(0, 0)

           1       2       3       4       5       6       7       8
1      0.651   0.689   0.713   0.720   0.713   0.689   0.651   0.598
2      0.699   0.738   0.761   0.769   0.761   0.738   0.699   0.646
3      0.748   0.787   0.810   0.818   0.810   0.787   0.748   0.695
4      0.798   0.836   0.859   0.867   0.859   0.836   0.798   0.745
5      0.847   0.886   0.909   0.917   0.909   0.886   0.847   0.794
6      0.897   0.936   0.959   0.967   0.959   0.936   0.897   0.844
7      0.947   0.986   1.009   1.017   1.009   0.986   0.947   0.894
8      0.997   1.036   1.059   1.067   1.059   1.036   0.997   0.944
9      1.047   1.085   1.109   1.116   1.109   1.085   1.047   0.994
10     1.096   1.135   1.158   1.166   1.158   1.135   1.096   1.043
11     1.145   1.184   1.207   1.215   1.207   1.184   1.145   1.093
12     1.194   1.232   1.256   1.264   1.256   1.232   1.194   1.141
13     1.242   1.280   1.304   1.311   1.304   1.280   1.242   1.189
14     1.289   1.327   1.351   1.359   1.351   1.327   1.289   1.236
15     1.335   1.374   1.397   1.405   1.397   1.374   1.335   1.282
16     1.380   1.419   1.442   1.450   1.442   1.419   1.380   1.327
17     1.424   1.463   1.486   1.494   1.486   1.463   1.424   1.372
18     1.467   1.506   1.529   1.537   1.529   1.506   1.467   1.414
19     1.509   1.547   1.571   1.578   1.571   1.547   1.509   1.456
20     1.549   1.587   1.611   1.618   1.611   1.587   1.549   1.496

# Loop over x,y and create a list of emphatic objects
groups <- purrr::map2(
  cos(seq(0, 2*pi , length.out = 60)),
  sin(seq(-2*pi, 2*pi, length.out = 60)),
  ~create_sinus(.x, .y)
)

# Save the list as an SVG animation to file
if (FALSE) {
  as_svg_anim(groups, duration = 0.1, playback = 'infinite') |>
    writeLines("sinus.svg")
}

# Play the SVG animation back in the Rstudio console
if (FALSE) {
  as_svg_anim(groups, duration = 0.1, playback = 'infinite', browsable = TRUE)
}

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.