Hi @lars,
Many thanks for your suggestions.
I have settled on this compromise which provides a message about use of this function in a pipe:
name_as_column <- function(.data, obj_name = "") {
require(dplyr)
if(obj_name=="") {
message("Did you mean to use 'name_as_column(obj_name=substitute(.))' in a pipe?")
obj_name <- "not_provided"
}
obj_value <- {{obj_name}} %>% as.character()
df <- .data %>%
mutate(obj_name = obj_value) %>%
select(obj_name, everything())
return(df)
}
head(name_as_column(mtcars))
#> Loading required package: dplyr
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
#> Did you mean to use 'name_as_column(obj_name=substitute(.))' in a pipe?
#> obj_name mpg cyl disp hp drat wt qsec vs am gear
#> Mazda RX4 not_provided 21.0 6 160 110 3.90 2.620 16.46 0 1 4
#> Mazda RX4 Wag not_provided 21.0 6 160 110 3.90 2.875 17.02 0 1 4
#> Datsun 710 not_provided 22.8 4 108 93 3.85 2.320 18.61 1 1 4
#> Hornet 4 Drive not_provided 21.4 6 258 110 3.08 3.215 19.44 1 0 3
#> Hornet Sportabout not_provided 18.7 8 360 175 3.15 3.440 17.02 0 0 3
#> Valiant not_provided 18.1 6 225 105 2.76 3.460 20.22 1 0 3
#> carb
#> Mazda RX4 4
#> Mazda RX4 Wag 4
#> Datsun 710 1
#> Hornet 4 Drive 1
#> Hornet Sportabout 2
#> Valiant 1
head(name_as_column(mtcars, obj_name="testing_name"))
#> obj_name mpg cyl disp hp drat wt qsec vs am gear
#> Mazda RX4 testing_name 21.0 6 160 110 3.90 2.620 16.46 0 1 4
#> Mazda RX4 Wag testing_name 21.0 6 160 110 3.90 2.875 17.02 0 1 4
#> Datsun 710 testing_name 22.8 4 108 93 3.85 2.320 18.61 1 1 4
#> Hornet 4 Drive testing_name 21.4 6 258 110 3.08 3.215 19.44 1 0 3
#> Hornet Sportabout testing_name 18.7 8 360 175 3.15 3.440 17.02 0 0 3
#> Valiant testing_name 18.1 6 225 105 2.76 3.460 20.22 1 0 3
#> carb
#> Mazda RX4 4
#> Mazda RX4 Wag 4
#> Datsun 710 1
#> Hornet 4 Drive 1
#> Hornet Sportabout 2
#> Valiant 1
mtcars %>%
name_as_column(obj_name=substitute(.)) %>%
head()
#> obj_name mpg cyl disp hp drat wt qsec vs am gear carb
#> Mazda RX4 mtcars 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
#> Mazda RX4 Wag mtcars 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
#> Datsun 710 mtcars 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
#> Hornet 4 Drive mtcars 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
#> Hornet Sportabout mtcars 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
#> Valiant mtcars 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
mtcars %>%
name_as_column() %>%
head()
#> Did you mean to use 'name_as_column(obj_name=substitute(.))' in a pipe?
#> obj_name mpg cyl disp hp drat wt qsec vs am gear
#> Mazda RX4 not_provided 21.0 6 160 110 3.90 2.620 16.46 0 1 4
#> Mazda RX4 Wag not_provided 21.0 6 160 110 3.90 2.875 17.02 0 1 4
#> Datsun 710 not_provided 22.8 4 108 93 3.85 2.320 18.61 1 1 4
#> Hornet 4 Drive not_provided 21.4 6 258 110 3.08 3.215 19.44 1 0 3
#> Hornet Sportabout not_provided 18.7 8 360 175 3.15 3.440 17.02 0 0 3
#> Valiant not_provided 18.1 6 225 105 2.76 3.460 20.22 1 0 3
#> carb
#> Mazda RX4 4
#> Mazda RX4 Wag 4
#> Datsun 710 1
#> Hornet 4 Drive 1
#> Hornet Sportabout 2
#> Valiant 1
Created on 2021-02-13 by the reprex package (v1.0.0)