Issue in creating contingency table in R

I am using ISLR package for my statistics practice. I am using OJ dataset. I am trying to create a contingency table for Purchase column and specialPrice columns for weach of the population.

I am trying to find the likelihood of CH being sold if there is a special price.

Here is my code so far.

library(ISLR)
CH <- table(OJ[OJ$Purchase == 'CH', "SpecialCH"])
MM <- table(OJ[OJ$Purchase == 'MM', "SpecialMM"])
table (MM, CH)

The out put that I get is a bit weird.

     CH
MM    121 532
  101   1   0
  316   0   1

I am trying to find the odds ration and eventually apply McNemar's test. But I am unable to generate the contingency table. I can do it by hand but need to do it in R.