R分成多个二进制列

Question

假设我们有一个只有1个变量的数据框，如下所示：

Var
A
A, B
B
B, C, D
B, C
C
A, D

最快的方法是什么？

A B C D
1 0 0 0
1 1 0 0
0 1 1 1
0 1 1 0
0 0 1 0
1 0 0 1

我一直在尝试使用与tidyr分开的功能，但显然它仅在第一个逗号处拆分。