mutate<- function(.data,...){UseMethod("mutate")}mutate.data.frame<- function( .data,...,.by = NULL,.keep = c("all","used","unused","none"),.before = NULL,.after = NULL ){keep<- arg_match0(.keep,values = c("all","used","unused","none")) by<- compute_by({{.by}},.data,by_arg = ".by",data_arg = ".data") cols<- mutate_cols(.data,dplyr_quosures(...),by) used<- attr(cols,"used") out<- dplyr_col_modify(.data,cols) names_original<- names(.data) out<- mutate_relocate( out = out,before ={{.before}},after ={{.after}},names_original = names_original ) names_new<- names(cols) names_groups<- by$names out<- mutate_keep( out = out,keep = keep,used = used,names_new = names_new,names_groups = names_groups ) out}mutate_relocate<- function(out,before,after,names_original){before<- enquo(before) after<- enquo(after) if (quo_is_null(before) && quo_is_null(after)){return(out)}names<- names(out) names<- setdiff(names,names_original) relocate( out,all_of(names),.before = !!before,.after = !!after )}mutate_keep<- function(out,keep,used,names_new,names_groups){names<- names(out) if (keep == "all"){names_out<- names}else{names_keep<- switch( keep,used = names(used)[used],unused = names(used)[!used],none = character(),abort("Unknown

... [truncated 4843 chars] ...

 = cnd_bullet_rowwise_unlist() )}`mutate_bullets.dplyr:::error_incompatible_combine`<- function(cnd,...){c()}`mutate_bullets.dplyr:::mutate_constant_recycle_error`<- function(cnd,...){label<- ctxt_error_label() constant_size<- cnd$constant_size data_size<- cnd$data_size c( glue( "Inlined constant `{label}` must be size{or_1(data_size)},not{constant_size}." ) )}check_muffled_warning<- function(cnd){early_exit<- TRUE on.exit( if (early_exit){return(FALSE)}) muffled<- withRestarts( muffleWarning = function(...) TRUE,{signalCondition(cnd) FALSE}) early_exit<- FALSE muffled}