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 = "h.wickham@gmail.com", role = c("aut", "ctb"), comment = c(ORCID = "0000-0003-4757-117X")),
  person("Dianne", "Cook", email = "dicook@monash.edu", 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")