From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Leha Subject: Re: Make * bold or use colour for export to html and LaTeX Date: Fri, 10 Oct 2014 13:23:07 +0100 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39350) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XcZEQ-00086u-Oq for emacs-orgmode@gnu.org; Fri, 10 Oct 2014 08:23:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XcZEK-0007dK-9M for emacs-orgmode@gnu.org; Fri, 10 Oct 2014 08:23:38 -0400 Received: from plane.gmane.org ([80.91.229.3]:36358) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XcZEK-0007dF-2o for emacs-orgmode@gnu.org; Fri, 10 Oct 2014 08:23:32 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1XcZEJ-0005jT-3t for emacs-orgmode@gnu.org; Fri, 10 Oct 2014 14:23:31 +0200 Received: from 193.63.222.28 ([193.63.222.28]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 10 Oct 2014 14:23:31 +0200 Received: from andreas.leha by 193.63.222.28 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 10 Oct 2014 14:23:31 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Hi Rainer, Rainer M Krug writes: > Hi > > I want to highlight the cells in the table below with "***" by using > color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? > > The table is generated in R, so the ascii package might help (just > thinking about it while typing)? > > Thanks, > > Rainer > > | | slope | intercept | p | pm | pb | > |----------------------------+--------+-----------+---------------+--------------+---------------| > | quercus_robur.single | -1.358 | 4.76 | | | | > | quercus_robur.95 | -1.957 | 5.71 | 3.96e-21 *** | 7.47e-07 *** | 7.60e-09 *** | > | quercus_robur.90 | -1.752 | 5.42 | 3.43e-02 * | 7.18e-02 . | 4.79e-02 * | > | quercus_robur.85 | -1.773 | 5.41 | 4.11e-01 | 8.33e-01 | 9.38e- I am not sure to understand your question correctly, but if the table is R generated anyway, why not use R to provide the formatting for org? Like -- as a start -- this function, that does the simplest of those and replaces "***" with bold: --8<---------------cut here---------------start------------->8--- boldpattern <- " \\*\\*\\*$" tbl <- apply(tbl, 2, function(x) ifelse(grepl(boldpattern, x), paste0("*", gsub(boldpattern, "", x), "*"), x)) --8<---------------cut here---------------end--------------->8--- Here as full example in action: --8<---------------cut here---------------start------------->8--- ## ---------------------------------- ## ## create a table ## ## ---------------------------------- ## ## from ?lm ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) group <- gl(2, 10, 20, labels = c("Ctl","Trt")) weight <- c(ctl, trt) lm.D9 <- lm(weight ~ group) lm.D90 <- lm(weight ~ group - 1) # omitting intercept ## extract the coefficients tbl <- summary(lm.D90)$coefficients ## add the signif codes tbl[,4] <- paste(tbl[,4], symnum(tbl[,4], corr = FALSE, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " "))) tbl ## ---------------------------------- ## ## make them 'org-bold' ## ## ---------------------------------- ## boldpattern <- " \\*\\*\\*$" tbl <- apply(tbl, 2, function(x) ifelse(grepl(boldpattern, x), paste0("*", gsub(boldpattern, "", x), "*"), x)) tbl --8<---------------cut here---------------end--------------->8--- HTH, Andreas PS: The usual "don't use the signif.codes" applies.