force coords as integers

sebastien-plutniak · Dec 15, 2023 · a6841ac · a6841ac
1 parent 9df0e26
commit a6841ac
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/do_objects_dataset.R b/R/do_objects_dataset.R
@@ -101,7 +101,8 @@
     radians <- - degrees * pi / 180  
     rotated.mat <- matrix(c(cos(radians), -sin(radians), sin(radians), cos(radians)), 
                    byrow = TRUE, ncol = 2)
-    t(pivot + rotated.mat %*% (t(as.matrix(coords) ) - pivot))
+    rotated.mat <- t(pivot + rotated.mat %*% (t(as.matrix(coords) ) - pivot))
+    apply(rotated.mat, 2, as.integer)
   }
 
   df[, c("x", "y")] <- rotate(df[, c("x", "y")],