How do I get the heading elements from the TableForm option TableHeadings?

Question

The following,

table = 
  TableForm[ConstantArray[0, {3, 3}], 
   TableAlignments -> Right, 
   TableHeadings -> {None, {"One", "Two", "Three"}}]

generates a table with headings:

I see that its FullForm is

TableForm[
  List[
    List[HoldForm[\[Placeholder]], HoldForm[\[Placeholder]], HoldForm[\[Placeholder]]],
    List[HoldForm[\[Placeholder]], HoldForm[\[Placeholder]], HoldForm[\[Placeholder]]],
    List[HoldForm[\[Placeholder]], HoldForm[\[Placeholder]], HoldForm[\[Placeholder]]]],
    Rule[TableAlignments, Right],
    Rule[TableHeadings, List[None, List["One", "Two", "Three"]]
  ]
]

and I could parse this to retrieve the value of TableHeadings.

But is there a more canonical approach?

I found that for plots, one can use Options[plot], but I couldn't find a counterpart for tables.

Answer 1

Options seems to work just fine:

Options[table, TableHeadings]

(* {TableHeadings -> {None, {"One", "Two", "Three"}}} *)

... slightly generalized:

getopt[obj_, opt_] := opt /. Options[obj, opt]

getopt[table, TableHeadings]

(* {None, {"One", "Two", "Three"}} *)

Answer 2

Cases[InputForm[yourTableFormRefHere], HoldPattern[TableHeadings -> a_] :> a, Infinity]

Should do the trick.