format() applied to an NA character string (PR#9616)

I get strange results when I try to format() an NA character string.

  

x <- 'sometext'
x[1] <- NA
format(NA, width=32) # displays sensibly, right-justified
format(x,width=32)   # displays sensibly, left-justified
format(x,width=33)   # displays ""
format(x,width=36)   # R exits abnormally with code 5
    

This happens on Linux too, given slightly larger widths:

R version 2.5.0 RC (2007-04-17 r41210)
....

x <- as.character(NA)
format(x,width=64)

Program received signal SIGSEGV, Segmentation fault.
Rstrlen (s=0x20000009, quote=0) at ../../../R/src/main/printutils.c:374
374         return Rstrwid(CHAR(s), LENGTH(s), quote);

version
    

platform       i386-pc-mingw32
arch           i386
os             mingw32
system         i386, mingw32
status
major          2
minor          4.1
year           2006
month          12
day            18
svn rev        40228
language       R
version.string R version 2.4.1 (2006-12-18)

I'm running Windows XP.

Damon.

______________________________________________
R-devel at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
  

O__  ---- Peter Dalgaard             ?ster Farimagsgade 5, Entr.B
  c/ /'_ --- Dept. of Biostatistics     PO Box 2099, 1014 Cph. K
 (*) \(*) -- University of Copenhagen   Denmark          Ph:  (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)                  FAX: (+45) 35327907

Peter Dalgaard <P.Dalgaard <at> biostat.ku.dk> writes:

This happens on Linux too, given slightly larger widths:

R version 2.5.0 RC (2007-04-17 r41210)
....

x <- as.character(NA)
format(x,width=64)

I can confirm this on Linux also.

format(x,width=36)

[1] "NA                                  "
R> format(x,width=64)

 *** caught segfault ***
address 0x20202020, cause 'memory not mapped'

Traceback:
 1: switch(mode(x), "NULL" = "NULL", character = .Internal(format(x,     trim,
digits, nsmall, width, adj, na.encode, scientific)),     call = , expression = ,
"function" = , "(" = deparse(x),     raw = as.character(x),
prettyNum(.Internal(format(x, trim,         digits, nsmall, width, 3, na.encode,
scientific)), big.mark = big.mark,         big.interval = big.interval,
small.mark = small.mark,         small.interval = small.interval, decimal.mark =
decimal.mark,         zero.print = zero.print, preserve.width = if (trim)
"individual" else "common"))
 2: format.default(x, width = 64)
 3: format(x, width = 64)

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = Under development (unstable)
 major = 2
 minor = 6.0
 year = 2007
 month = 04
 day = 18
 svn rev = 41219
 language = R
 version.string = R version 2.6.0 Under development (unstable) (2007-04-18 r41219)

Gregor