From 99cf8129c8975ec404a995d0d44a15d096fda603 Mon Sep 17 00:00:00 2001 From: Christopher Chan Date: Mon, 31 Jul 2023 09:40:19 +0100 Subject: [PATCH] DESCRIPTION: version bumped to 2.1.1 R/save_reactable.R: fixed to match R4.3.1 handling of && --- DESCRIPTION | 2 +- R/save_reactable.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 7798c683..ca84eaa5 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: reactablefmtr Type: Package Title: Streamlined Table Styling and Formatting for Reactable -Version: 2.1.0 +Version: 2.1.1 Authors@R: c( person("Kyle", "Cuilla", role = c("aut", "cre", "cph"), email = "kyle.cuilla@gmail.com"), person("Greg", "Lin", role = c("ctb")), diff --git a/R/save_reactable.R b/R/save_reactable.R index f3de7526..9fc18f01 100644 --- a/R/save_reactable.R +++ b/R/save_reactable.R @@ -72,7 +72,7 @@ save_reactable <- function(input, message("html file saved to ", getwd(), "/", output) - } else if (tools::file_ext(output) == "png" && tools::file_ext(input) != "Rmd" && tools::file_ext(input) != "html") { + } else if (tools::file_ext(output) == "png" && all(tools::file_ext(input) != "Rmd") && all(tools::file_ext(input) != "html")) { temp_html <- tempfile( pattern = tools::file_path_sans_ext(basename(output)),