Subscripting fails if name of element is "" (PR#8161)

Dear all,

I resend this mail because it was blocked: I submitted a bug from the r-bug
webpage and hypatia seems to block mail that is send from a different IP
than that usually associated with the email. Looks like it is currently
impossible to correctly submit bugs from the website. However, here is the
original bug report:

(PR#8161)

Dear all,

The following shows cases where accessing elements via their name fails (if
the
name is a string of length zero). 

Best regards


Jens Oehlschl?gel

p <- 1:3
names(p) <- c("a","", as.character(NA))
p

a      <NA> 
   1    2    3

for (i in names(p))

+ print(p[[i]])
[1] 1
[1] 2
[1] 3

# error 1: vector subsripting with "" fails in second element
for (i in names(p))

+ print(p[i])
a 
1 
<NA> 
  NA 
<NA> 
   3

# error 2: print method for list shows no name for second element
p <- as.list(p)


for (i in names(p))

+ print(p[[i]])
[1] 1
[1] 2
[1] 3

# error 3: list subsripting with "" fails in second element
for (i in names(p))

+ print(p[i])
$a
[1] 1

$"NA"
NULL

$"NA"
[1] 3

version

_              
platform i386-pc-mingw32
arch     i386           
os       mingw32        
system   i386, mingw32  
status                  
major    2              
minor    1.1            
year     2005           
month    06             
day      20             
language R




# -- replication code ----------------------------------

p <- 1:3
names(p) <- c("a","", as.character(NA))
p

for (i in names(p))
		 print(p[[i]])
		 
# error 1: vector subsripting with "" fails in second element
for (i in names(p))
		 print(p[i])

# error 2: print method for list shows no name for second element
p <- as.list(p)


for (i in names(p))
		 print(p[[i]])
		 
# error 3: list subsripting with "" fails in second element
for (i in names(p))
		 print(p[i])




--