How to turn list into string with quotation marks for each value?

Question

I have a list:

id<- c(\'22~1\', \'85L3~1\')

I want to turn it into string like this:

id IN (\'22~1\', \'85L3~1\')