Removing depcreated tidyverse functions

Author: jaredlander

.Rbuildignore

@@ -9,3 +9,5 @@
 .git\.
 ^codecov\.yml$
 ^\.github$
+.claude/*
+CLAUDE.md

.travis.yml

@@ -2,7 +2,7 @@ Package: useful
 Type: Package
 Title: A Collection of Handy, Useful Functions
 Version: 1.2.7
-Date: 2023-10-31
+Date: 2026-02-25
 Authors@R: c(
     person(c("Jared", "P."), "Lander", email = "packages@jaredlander.com", role = c("cre", "aut")),
     person("Nicholas", "Galasinao", email = "nicholas.galasinao@gmail.com", role = "ctb"),

DESCRIPTION

@@ -69,6 +69,7 @@ export(vplayout)
 import(ggplot2)
 importFrom(plyr,alply)
 importFrom(plyr,llply)
+importFrom(rlang,":=")
 importFrom(rlang,.data)
 importFrom(stats,as.formula)
 importFrom(stats,cmdscale)

NAMESPACE

@@ -1,4 +1,4 @@
-# Version 1.2.4
+# Version 1.2.7
 Using `autoplot` to plot `acf` objects.
 
 # Version 1.2.4

NEWS.md

@@ -72,6 +72,7 @@ fortify.kmeans <- function(model, data=NULL, ...)
 #' @param xlab Label for the x-axis.
 #' @param ylab Label for the y-axis.
 #' @param \dots Not Used.
+#' @importFrom rlang :=
 #' @return A ggplot object
 #' @examples
 #' 
@@ -93,10 +94,15 @@ plot.kmeans <-
       legend.position <- match.arg(legend.position)
 
       # convert class to factor just in case it is not already
-      if(!is.null(class)) toPlot[, class] <- factor(toPlot[, class])
+      # if(!is.null(class)) toPlot[, class] <- factor(toPlot[, class])
+      if(!is.null(rlang::enexpr(class)))
+      {
+        class <- rlang::ensym(class)
+        dplyr::mutate(toPlot, {{class}} := factor({{class}}))
+      }
 
       ggplot(toPlot, aes(x=.data[['.x']], y=.data[['.y']], colour=.data[['.Cluster']])) + 
-          # geom_point(aes_string(shape='class'), size=size) + 
+          # geom_point(aes_string(shape='class'), size=size) +
           geom_point(aes(shape={{class}}), size=size) +
           scale_color_discrete("Cluster") +
           theme(legend.position=legend.position) +