bickis m@iii@g oii m@th@us@sk@c@
2019-Nov-25 17:40 UTC
[R] Why don't the comments appear in the function?
Different version of R perhaps? Or is there something in my environment or "preferences" that is different? Here's what I get with your example.> f <- function(x){+ ## a comment + 2 + }> g <- list(a =2, fun =f) > g$a [1] 2 $fun function (x) { 2 }> g[[2]]function(x){ ## a comment 2 }> g[1]$a [1] 2 Mik> I do not see this behavior. > > f <- function(x){ > ## a comment > 2 > } > > g <- list(a =2, fun =f) > >> g > $a > [1] 2 > > $fun > function(x){ > ## a comment > 2 > } > >> g[[2]] > function(x){ > ## a comment > 2 > } >> g[2] > $fun > function(x){ > ## a comment > 2 > } > > Cheers, > Bert > > Bert Gunter > > "The trouble with having an open mind is that people keep coming along and > sticking things into it." > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > On Mon, Nov 25, 2019 at 7:03 AM > <bickis at math.usask.ca<mailto:bickis at math.usask.ca>> wrote: > I have made a list in which each element is a function. If I print > individual elements of the list, then the function code is shown along > with embedded comments. However, if I print the list or sublist, then the > function code is shown without comments. Why (and how) are the comments > hidden? > >>flist[[3]] > function(y,brackets,rates){ > # Calculates before-tax income required to realized value y > ints<-c(0,cumsum(diff(brackets)*rates[1:(length(rates)-1)]))-brackets*rates > x<-(y+ints)/(1-rates) > x[sum(x>brackets)] > } > > >>flist[3] > $btv > function (y, brackets, rates) > { > ints <- c(0, cumsum(diff(brackets) * rates[1:(length(rates) - > 1)])) - brackets * rates > x <- (y + ints)/(1 - rates) > x[sum(x > brackets)] > } > > I am running R 3.3.2 on Mac OS X 10.10.5 > > Mik Bickis > > ______________________________________________ > R-help at r-project.org<mailto:R-help at r-project.org> mailing list -- To > UNSUBSCRIBE and more, see > 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. >
Dunno.> R.Version()$platform [1] "x86_64-apple-darwin15.6.0" $arch [1] "x86_64" $os [1] "darwin15.6.0" $system [1] "x86_64, darwin15.6.0" $status [1] "" $major [1] "3" $minor [1] "6.1" $year [1] "2019" $month [1] "07" $day [1] "05" $`svn rev` [1] "76782" $language [1] "R" $version.string [1] "R version 3.6.1 (2019-07-05)" $nickname [1] "Action of the Toes" You should upgrade to the latest version (which I have not done yet) if you haven't already done so. Additional notes: I saw the same results at the command line from R -- vanilla that I got from the RStudio console(what I showed you). Have you done this? This should indicate whether it might have something to do with your environment, etc.. However, executing the file with Rscript stripped the comments from both g[[2]] and g[2]. Cheers, Bert On Mon, Nov 25, 2019 at 9:40 AM <bickis at math.usask.ca> wrote:> Different version of R perhaps? Or is there something in my environment > or "preferences" that is different? > > Here's what I get with your example. > > > f <- function(x){ > + ## a comment > + 2 > + } > > g <- list(a =2, fun =f) > > g > $a > [1] 2 > > $fun > function (x) > { > 2 > } > > > g[[2]] > function(x){ > ## a comment > 2 > } > > g[1] > $a > [1] 2 > > > > > Mik > > > > I do not see this behavior. > > > > f <- function(x){ > > ## a comment > > 2 > > } > > > > g <- list(a =2, fun =f) > > > >> g > > $a > > [1] 2 > > > > $fun > > function(x){ > > ## a comment > > 2 > > } > > > >> g[[2]] > > function(x){ > > ## a comment > > 2 > > } > >> g[2] > > $fun > > function(x){ > > ## a comment > > 2 > > } > > > > Cheers, > > Bert > > > > Bert Gunter > > > > "The trouble with having an open mind is that people keep coming along > and > > sticking things into it." > > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip ) > > > > > > On Mon, Nov 25, 2019 at 7:03 AM > > <bickis at math.usask.ca<mailto:bickis at math.usask.ca>> wrote: > > I have made a list in which each element is a function. If I print > > individual elements of the list, then the function code is shown along > > with embedded comments. However, if I print the list or sublist, then > the > > function code is shown without comments. Why (and how) are the comments > > hidden? > > > >>flist[[3]] > > function(y,brackets,rates){ > > # Calculates before-tax income required to realized value y > > > ints<-c(0,cumsum(diff(brackets)*rates[1:(length(rates)-1)]))-brackets*rates > > x<-(y+ints)/(1-rates) > > x[sum(x>brackets)] > > } > > > > > >>flist[3] > > $btv > > function (y, brackets, rates) > > { > > ints <- c(0, cumsum(diff(brackets) * rates[1:(length(rates) - > > 1)])) - brackets * rates > > x <- (y + ints)/(1 - rates) > > x[sum(x > brackets)] > > } > > > > I am running R 3.3.2 on Mac OS X 10.10.5 > > > > Mik Bickis > > > > ______________________________________________ > > R-help at r-project.org<mailto:R-help at r-project.org> mailing list -- To > > UNSUBSCRIBE and more, see > > 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. > > > > >[[alternative HTML version deleted]]