Delete everything after second comma from string [duplicate]

I would like to remove anything after the second comma in a string -including the second comma-. Here is an example:

x <- 'Day,Bobby,Jean,Gav'
gsub("(.*),.*", "\\1", x)

and it gives:

[1] "Day, Bobby, Jean"

while I want:

[1] "Day, Bobby

regardless of the number of names that may exist in x