Fixes #645.

SebKrantz · Mar 4, 2025 · 3a7f86b · 3a7f86b
1 parent 8601ea4
commit 3a7f86b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -745,6 +745,7 @@ importFrom("stats", "as.formula", "complete.cases", "cor", "cov", "var", "pt",
  S3method('[[', GRP_df)
  S3method('[<-', GRP_df)
  S3method('[[<-', GRP_df)
+ S3method('names<-', GRP_df)
  S3method('[', indexed_series)
  S3method(Math, indexed_series)
  S3method(Ops, indexed_series)

diff --git a/R/GRP.R b/R/GRP.R
@@ -502,6 +502,7 @@ print.invisible <- function(x, ...) cat("")
 `[[.GRP_df` <-  function(x, ...) UseMethod("[[", fungroup(x)) # function(x, ..., exact = TRUE) .subset2(x, ..., exact = exact)
 `[<-.GRP_df` <- function(x, ..., value) UseMethod("[<-", fungroup(x))
 `[[<-.GRP_df` <- function(x, ..., value) UseMethod("[[<-", fungroup(x))
+`names<-.GRP_df` <- function(x, value) `oldClass<-`(`names<-`(unclass(x), value), oldClass(x))
 
 # Produce errors...
 # print_GRP_df_core <- function(x) {