The R Project SVN R

Rev

Rev 48613 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 48613 Rev 78047
Line 19... Line 19...
19 
## trio peculiarity with %a, and incorrect fix
 19 
## trio peculiarity with %a, and incorrect fix
20 
x <- sprintf("%a", 1:8)
 20 
x <- sprintf("%a", 1:8)
21 
y <- c("0x1p+0", "0x1p+1", "0x1.8p+1", "0x1p+2", "0x1.4p+2", "0x1.8p+2",
 21 
y <- c("0x1p+0", "0x1p+1", "0x1.8p+1", "0x1p+2", "0x1.4p+2", "0x1.8p+2",
22 
       "0x1.cp+2", "0x1p+3")
 22 
       "0x1.cp+2", "0x1p+3")
23 
stopifnot(identical(x, y))
 23 
stopifnot(identical(x, y))
- 
 
 24 
 
- 
 
 25 
## binary mode in download.file(,method="wininet") (PR#17715)
- 
 
 26 
 
- 
 
 27 
src <- file.path(tempdir(), "source.bin")
- 
 
 28 
dst <- file.path(tempdir(), "target.bin")
- 
 
 29 
url <- file.path("file://", src)
- 
 
 30 
d <- as.raw(0x1a)
- 
 
 31 
writeBin(d, src)
- 
 
 32 
download.file(url, dst, method = "wininet", mode = "wb")
- 
 
 33 
dstbin <- readBin(dst, "raw")
- 
 
 34 
stopifnot(identical(d, dstbin))