update to version and news

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tourr
 Title: Tour Methods for Multivariate Data Visualisation
-Version: 1.2.2
+Version: 1.2.3
 Authors@R: c(
     person("Hadley", "Wickham", email = "[email protected]", role = c("aut", "ctb"), comment = c(ORCID = "0000-0003-4757-117X")),
     person("Dianne", "Cook", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-3813-7155")),

NEWS.md

@@ -1,6 +1,12 @@
+# tourr 1.2.3
+
+* New optimisation routine, using the jellyfish optimiser.
+* New PP indexes from cassowaryr package, stringy, MIC and TIC.
+* Attempted fix for positron, but still not working.
+
 # tourr 1.2.2
 
-* New skewness index, as defined in original Cook, Buja, Cabrera paper
+* New skewness index, as defined in original Cook, Buja, Cabrera paper.
 
 # tourr 1.2.1
 

R/animate.r

@@ -62,7 +62,7 @@ animate <- function(data, tour_path = grand_tour(), display = display_xy(),
     to_stop()
   }
   plat <- find_platform()
-  if (rstudio_gd() && fps > 19) {
+  if ((rstudio_gd() && fps > 19) || (positron_gd() && fps > 19)) {
     warning("Rstudio graphics device supports maximum fps of 19", call. = FALSE)
     fps <- 19
   }
@@ -102,7 +102,7 @@ animate <- function(data, tour_path = grand_tour(), display = display_xy(),
         if (!is.null(start$target)){
           dev.hold()
           on.exit(dev.flush())
-          if (plat$os == "win" || plat$iface == "rstudio") {
+          if (plat$os == "win" || plat$iface == "rstudio" || plat$iface == "cli") {
             display$render_frame()
           } else {
             display$render_transition()
@@ -131,5 +131,6 @@ animate <- function(data, tour_path = grand_tour(), display = display_xy(),
 }
 
 rstudio_gd <- function() identical(names(dev.cur()), "RStudioGD")
+positron_gd <- function() identical(names(dev.cur()), "Positron Graphics Device")
 
 # globalVariables("record")