R libraries to match SNPs by positions (including switching and flipping)

Question

[timing]

Is there an R package that can R libraries to match SNPs by positions (including switching and flipping)?

For example, it should match

chr1:1:C:T

with

chr1:1:T:C
chr1:1:G:A
chr1:1:A:G

[Ram]

I'm not sure if this is a common requirement - packages/functions may not exist but it might be straightforward to write a function yourself.

Side note: I think this question might become what's called a code-golf question on the forum quickly.