Spin image. Resulting file best viewed in Google Chrome.

image_spin(
  input,
  rpm = 1,
  rotation_point = c(0.5, 0.5),
  add_dot = FALSE,
  dot_color = "red",
  dot_size = 6,
  openfile = TRUE,
  output = input
)

Arguments

input	File name of .svg file to input
rpm	Number of rotations per minute. Positive numbers spin right. Negative numbers spin left. 0 is stationary.
rotation_point	A vector of 2 numbers ranging from 0 to 1. Default is c(0.5, 0.5)
add_dot	Adds a dot at the rotation point
dot_color	Color of dot at center
dot_size	Size of dot
openfile	Open file in default program for .svg format. Defaults to FALSE.
output	File name of .svg file to output. Default is to overwrite the input file.

Value

output name

Examples

.old_wd <- setwd(tempdir())
library(spiro)
spiro(fixed_radius = 3,
      cycling_radius = 1,
      file = "image_spin") %>%
  image_spin(rpm = 1)
setwd(.old_wd)