translating Stata into R: collapse with weight

Question

I\'m having trouble with translating this code into R:

collapse (sum)young_imm (sum)baby_imm (sum)old_imm (sum)female* (sum)male* , by(period_imm ethnic), [aw=perwt]