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 <bic...@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
> > <bic...@math.usask.ca<mailto:bic...@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@r-project.org<mailto:R-help@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]]
______________________________________________
R-help@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.
