From 64f5d97609a77ab6e73f841a584649a6445a3525 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Tue, 6 Feb 2024 10:10:25 +0100
Subject: [PATCH] fix

---
 R/data_modify.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/data_modify.R b/R/data_modify.R
index 0aea4a287..53afcba7b 100644
--- a/R/data_modify.R
+++ b/R/data_modify.R
@@ -233,6 +233,7 @@ data_modify.grouped_df <- function(data, ..., .if = NULL, .at = NULL, .modify =
   # we need to evaluate dots here, and pass them with "do.call" to
   # the data.frame method later...
   dots <- match.call(expand.dots = FALSE)[["..."]]
+  column_names <- colnames(data)
 
   # works only for dplyr >= 0.8.0
   grps <- attr(data, "groups", exact = TRUE)