[upd] reverse changes in topo dotprops

natverse · May 19, 2021 · faeab01 · faeab01
1 parent ca38583
commit faeab01
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dotprops.R b/R/dotprops.R
@@ -9,7 +9,7 @@ is.dotprops<-function(x) inherits(x,"dotprops")
 as.dotprops<-function(x, ...){
   if(is.null(x)) return (NULL)
   if(!is.dotprops(x)) class(x)=c("dotprops",class(x))
-  if("topo.dotprops" %in% names(x)) class(x) = union("topo.dotprops", class(x))
+  if("topo" %in% names(x)) class(x) = union("topo.dotprops", class(x))
   if(is.null(colnames(x$points))) colnames(x$points) <-c("X","Y","Z")
   x
 }