Problem in produce function() in R with arguments in group_by()

Question

This is my code. What am I doing wrong?

sums <- function(x, y) {
        
        if(nargs() < 2){  
               a <-  mtcars %>% group_by(.$x) %>% summarise(tot = sum(disp))}
        
        else{
               a <-  mtcars  %>% group_by(.$x,.$y) %>% summarise(tot= sum(disp))
        }
        
        a
}

sums(cyl)

sums(cyl,gear)

Any help

akrun · Accepted Answer · 2021-05-04 16:57:36Z

2

As we are passing unquoted arguments, use curly-curly operator ({{}})

sums <- function(x, y) {
    
    if(nargs() < 2){  
           a <-  mtcars %>% 
                   group_by({{x}}) %>%
                   summarise(tot = sum(disp))
          } else{
           a <-  mtcars  %>% 
                   group_by({{x}},{{y}}) %>% 
                   summarise(tot= sum(disp))
      }
    
    a
   }

edited May 4, 2021 at 16:57

answered May 4, 2021 at 16:55

akrun

891k38 gold badges590 silver badges700 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Problem in produce function() in R with arguments in group_by()

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related