arules package question- apriori/S4 object export question

I am new to R( but quickly being awed by the range of this it can accomplish,
you have one more convert to the useR universe). I have successfully
implemented the apriori function and are getting great results. My question
concerns how to export these results. I have read lots about write.csv
functions and exporting data frames and other standard objects. Im having
difficulty working with these S4 objects. My object looks as follows.

str(rules)

Formal class 'rules' [package "arules"] with 4 slots
   ..@ lhs    :Formal class 'itemMatrix' [package "arules"] with 3 slots
   .. .. ..@ data       :Formal class 'ngCMatrix' [package "Matrix"] with 5
slots
   .. .. .. .. ..@ i       : int [1:2133] 3907 3519 4172 3519 4182 3519 4172
4182 4172 4182 ...
   .. .. .. .. ..@ p       : int [1:790] 0 0 1 2 3 4 5 6 7 8 ...
   .. .. .. .. ..@ Dim     : int [1:2] 7002 789
   .. .. .. .. ..@ Dimnames:List of 2
   .. .. .. .. .. ..$ : NULL
   .. .. .. .. .. ..$ : NULL
   .. .. .. .. ..@ factors : list()
   .. .. ..@ itemInfo   :'data.frame':   7002 obs. of  1 variable:
   .. .. .. ..$ labels:Class 'AsIs'  chr [1:7002] "0171T_722.52"
"0171T_724.02" "0172T_724.02" "0197T_185" ...
   .. .. ..@ itemsetInfo:'data.frame':   0 obs. of  0 variables
   ..@ rhs    :Formal class 'itemMatrix' [package "arules"] with 3 slots
   .. .. ..@ data       :Formal class 'ngCMatrix' [package "Matrix"] with 5
slots
   .. .. .. .. ..@ i       : int [1:789] 4120 3704 4172 3519 4182 3519 4120
4182 4172 4120 ...
   .. .. .. .. ..@ p       : int [1:790] 0 1 2 3 4 5 6 7 8 9 ...
   .. .. .. .. ..@ Dim     : int [1:2] 7002 789
   .. .. .. .. ..@ Dimnames:List of 2
   .. .. .. .. .. ..$ : NULL
   .. .. .. .. .. ..$ : NULL
   .. .. .. .. ..@ factors : list()
   .. .. ..@ itemInfo   :'data.frame':   7002 obs. of  1 variable:
   .. .. .. ..$ labels:Class 'AsIs'  chr [1:7002] "0171T_722.52"
"0171T_724.02" "0172T_724.02" "0197T_185" ...
   .. .. ..@ itemsetInfo:'data.frame':   0 obs. of  0 variables
   ..@ quality:'data.frame':     789 obs. of  3 variables:
   .. ..$ support   : num [1:789] 0.8258 0.0103 0.0102 0.0102 0.0102 ...
   .. ..$ confidence: num [1:789] 0.826 1 0.987 0.925 0.987 ...
   .. ..$ lift      : num [1:789] 1 50.8 89.6 89.6 89.6 ...
   ..@ info   :List of 4
   .. ..$ data         : symbol lij_trans
   .. ..$ ntransactions: int 7266
   .. ..$ support      : num 0.01
   .. ..$ confidence   : num 0.7

and sample inspect statement:

95  {93510_411.1,
      93556_411.1}  =>  {93010_414.9}  0.01279934  1.0000000  1.21100
96  {93010_414.9,
      93510_411.1}  =>  {93556_411.1}  0.01279934  0.9687500 69.00919
97  {93010_414.9,
      93556_411.1}  =>  {93510_411.1}  0.01279934  0.9117647 69.00919
98  {93543_413.9,
      93555_413.9}  =>  {93556_413.9}  0.01541426  1.0000000 60.55000
99  {93543_413.9,
      93556_413.9}  =>  {93555_413.9}  0.01541426  1.0000000 64.87500
100 {93555_413.9,
      93556_413.9}  =>  {93543_413.9}  0.01541426  1.0000000 64.87500
101 {93543_413.9,
      93555_413.9}  =>  {93545_413.9}  0.01541426  1.0000000 60.04959



What is am most interested in is exporting to a csv or some form of table.
Where the 1,2 or n transactions on the left are listed in c(1,2,...n) and
the dependent data point is in c(4 or n+1)(I have limited the max number to
three) and the support/conf/lift is the next tree columns.

something like:

  93543_413.9 | 93555_413.9 | 93545_413.9 |  0.01541426 |  1.0000000 |
60.04959

I have searched around but haven't found anything. Can someone help or
supply some more promising search terms to direct my dive into
documentation.


Thanks,

John