Merge pull request #462 from rich-iannone/v1.0.9-rc

Release DiagrammeR v1.0.9

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: DiagrammeR
 Title: Graph/Network Visualization
-Version: 1.0.8.9000
+Version: 1.0.9
 Authors@R:
     person("Richard", "Iannone", , "[email protected]", c("aut", "cre"),
            comment = c(ORCID = "0000-0003-3925-190X"))

NEWS.md

@@ -1,4 +1,4 @@
-# DiagrammeR (development version)
+# DiagrammeR 1.0.9
 
 * More safely check inputs to `grViz()` and `mermaid()`
 

R/count_graphs_in_graph_series.R

@@ -40,7 +40,7 @@
 #' @export
 count_graphs_in_graph_series <- function(graph_series) {
 
-  if (class(graph_series) == "dgr_graph_1D") {
+  if (inherits(graph_series, "dgr_graph_1D")) {
     if (is.null(graph_series$graphs)) {
       return(0)
     }

R/filter_graph_series.R

@@ -92,7 +92,7 @@ filter_graph_series <- function(graph_series,
   if (by == "number") {
 
     # validate the value provided for 'values'
-    if (class(values) != "numeric") {
+    if (!inherits(values, "numeric")) {
 
       return(graph_series)
     }
@@ -123,7 +123,7 @@ filter_graph_series <- function(graph_series,
   if (by == "time") {
 
     # validate the value provided for 'values'
-    if (class(values) == "numeric") {
+    if (inherits(values, "numeric")) {
 
       return(graph_series)
     }

R/set_graph_time.R

@@ -55,7 +55,7 @@ set_graph_time <- function(graph,
     tz <- Sys.timezone()
   }
 
-  if (class(time)[1] == "POSIXct") {
+  if (inherits(time[1], "POSIXct")) {
 
     if (!is.null(attr(time, "tzone"))) {
       tz <- attr(time, "tzone")