Commit 203875fe authored by Holger Brandl's avatar Holger Brandl

removed useless logging

parent e28a06eb
...@@ -414,14 +414,14 @@ first_group = function(groupedDF){ ...@@ -414,14 +414,14 @@ first_group = function(groupedDF){
mutate_inplace <- function(data, var, expr){ mutate_inplace <- function(data, var, expr){
install_package("rlang") load_pack("rlang")
var <- enexpr(var) var <- enexpr(var)
var_name <- quo_name(var) var_name <- quo_name(var)
expr <- enexpr(expr) expr <- enexpr(expr)
call <- quo(UQ(var) %>% UQ(expr)) call <- quo(UQ(var) %>% UQ(expr))
print(call) # print(call)
mutate(data, !!var_name := UQ(call)) mutate(data, !!var_name := UQ(call))
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment