I would like to generate a large number of 2x2 contingency tables in r studio, using a specified probability in each column.

If i had an example where a column has title '1', then there would be a 20% chance that a person could be allocated to that row, otherwise, the second row - with a total number of 20 people.

How can i randomly generate these?