[R] Tables Package Ampersand Quoting

[Duncan Murdoch]

On 13-11-10 1:16 PM, Jeff Newmiller wrote:
> There seems to be some inappropriate quoting in the tabular function from
> the tables package. Consider this example:

This turned out to be different than I thought at first.  It was simply 
that I mis-used the latexTranslate function from the Hmisc package.

I'll be committing some different changes soon.

Duncan Murdoch

>
> library(tables)
> sampledf <- data.frame( Manufacturer=c(rep("Joe & Co.",6)
>                                         ,rep("\\tabular, Inc.",4))
>                         , Tool=rep(c("Shovel","Screwdriver","Harpoon"
>                                   ,"Items","Stuff"),each=2)
>                         , When=rep(c("List","After"),times=5)
>                         , Price=c(180,190,190,180,200,200,140,145,150,140)
>                         )
> sampledf$MfrTool <- with( sampledf
>                           , factor( paste( Manufacturer, "-", Tool ) ) )
> tabular( MfrTool ~ When * Price * identity, data=sampledf )
>
> which produces for me:
>
>                                             When
>                                             After    List
>                                             Price    Price
>    MfrTool                                  identity identity
>    \\textbackslash{}tabular, Inc. - Items   145      140
>    \\textbackslash{}tabular, Inc. - Stuff   140      150
>    Joe \\textbackslash{}& Co. - Harpoon     200      200
>    Joe \\textbackslash{}& Co. - Screwdriver 180      190
>    Joe \\textbackslash{}& Co. - Shovel      190      180
>
> Although I do intend to pass this through the latex() function, I think
> that in this representation the substitution of '\textbackslash{}' for
> '\' is premature, and I am not sure why the backslash is getting doubled
> here.  In any event, the ampersand in 'Joe & Co.' is getting a '\' added
> to it (which it shouldn't here), and then when I pass this through the
> latex function I get:
>
>> latex(tabular( MfrTool ~ When * Price * identity, data=sampledf ))
>
> \begin{tabular}{lcc}
> \hline
>    & \multicolumn{2}{c}{When} \\
>    & After & \multicolumn{1}{c}{List} \\
>    & Price & \multicolumn{1}{c}{Price} \\
> MfrTool  & identity & \multicolumn{1}{c}{identity} \\
> \hline
> \textbackslash{}tabular, Inc. - Items  & $145$ & $140$ \\
> \textbackslash{}tabular, Inc. - Stuff  & $140$ & $150$ \\
> Joe \textbackslash{}& Co. - Harpoon  & $200$ & $200$ \\
> Joe \textbackslash{}& Co. - Screwdriver  & $180$ & $190$ \\
> Joe \textbackslash{}& Co. - Shovel  & $190$ & $180$ \\
> \hline
> \end{tabular}
>
> where 'Joe & Co.' has become illegal TeX.
>
> For reference,, my session:
>
>> sessionInfo()
> R version 2.15.3 (2013-03-01)
> Platform: i386-w64-mingw32/i386 (32-bit)
>
> locale:
> [1] LC_COLLATE=English_United States.1252
> [2] LC_CTYPE=English_United States.1252
> [3] LC_MONETARY=English_United States.1252
> [4] LC_NUMERIC=C
> [5] LC_TIME=English_United States.1252
>
> attached base packages:
> [1] splines   stats     graphics  grDevices utils     datasets  methods
> [8] base
>
> other attached packages:
> [1] tables_0.7      Hmisc_3.12-2    Formula_1.1-1   survival_2.37-4
>
> loaded via a namespace (and not attached):
> [1] cluster_1.14.4  grid_2.15.3     lattice_0.20-24 rpart_4.1-3
>
>
> ---------------------------------------------------------------------------
> Jeff Newmiller                        The     .....       .....  Go Live...
> DCN:<jdnewmil at dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
>                                         Live:   OO#.. Dead: OO#..  Playing
> Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
> /Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>