prep for release

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via 'plotly.js'
-Version: 4.9.2.9000
+Version: 4.9.3
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "cpsievert1@gmail.com", comment = c(ORCID = "0000-0002-4958-2844")),
     person("Chris", "Parmer", role = "aut",
@@ -74,12 +74,8 @@ Suggests:
     processx,
     plotlyGeoAssets,
     forcats,
-    thematic,
     palmerpenguins
 LazyData: true
 RoxygenNote: 7.1.1
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-Remotes: 
-  rstudio/thematic,
-  ramnathv/htmlwidgets

NEWS.md

@@ -1,4 +1,4 @@
-# 4.9.2.9000
+# 4.9.3
 
 ## Changes to plotly.js
 

R/ggplotly.R

@@ -431,8 +431,8 @@ gg2list <- function(p, width = NULL, height = NULL,
 
   # Allow thematic to add new defaults to the plot object based on it's theme
   built <- if (isNamespaceLoaded("thematic")) {
-    ggthematic_build <- getFromNamespace("ggthematic_build", "thematic")
-    ggthematic_build(p, ggplotly_build, thematic::thematic_get_theme(resolve = TRUE))
+    tns <- asNamespace("thematic")
+    tns$ggthematic_build(p, ggplotly_build, tns$thematic_get_theme(resolve = TRUE))
   } else {
     ggplotly_build(p)
   }
@@ -1277,7 +1277,7 @@ font_family <- function(family = "") {
   if (!isNamespaceLoaded("thematic")) {
     return("")
   }
-  font <- thematic::thematic_get_option("font")
+  font <- asNamespace("thematic")$thematic_get_option("font", resolve = TRUE)
   if (!length(font)) {
     return("")
   }