Skip to content

Commit

Permalink
update to version and news
Browse files Browse the repository at this point in the history
  • Loading branch information
dicook committed Sep 2, 2024
1 parent 7d6b215 commit 6fa03da
Show file tree
Hide file tree
Showing 3 changed files with 11 additions and 4 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -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")),
Expand Down
8 changes: 7 additions & 1 deletion NEWS.md
Original file line number Diff line number Diff line change
@@ -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

Expand Down
5 changes: 3 additions & 2 deletions R/animate.r
Original file line number Diff line number Diff line change
Expand Up @@ -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
}
Expand Down Expand Up @@ -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()
Expand Down Expand Up @@ -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")

0 comments on commit 6fa03da

Please sign in to comment.