diff --git a/DESCRIPTION b/DESCRIPTION index d9759ce8..c718cee1 100644 --- a/DESCRIPTION +++ b/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")), diff --git a/NEWS.md b/NEWS.md index 46e3124e..57299126 100644 --- a/NEWS.md +++ b/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 diff --git a/R/animate.r b/R/animate.r index d767ed88..b78a6f5f 100644 --- a/R/animate.r +++ b/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")