search for: u9b3c

...ut if we weaken the test? [...] > try > > stopifnot(path.expand(paste0("~/", filename)) == > paste0(path.expand("~/"), filename)) > Nope: > ## path.expand shouldn't translate to local encoding PR#17120 > filename <- "\U9b3c.R" > > #stopifnot(identical(path.expand(paste0("~/", filename)), > stopifnot(path.expand(paste0("~/", filename)) == + paste0(path.expand("~/"), filename)) Error: path.expand(paste0("~/", filename)) == paste0(path.expand(&quot...

...lt;- path.expand(paste0("~/", filename)) > > with > > x1 <- enc2utf8(path.expand(paste0("~/", filename))) > > Could you try this and see if it helps? Nope: > ## path.expand shouldn't translate to local encoding PR#17120 > filename <- "\U9b3c.R" > > x11 <- path.expand(paste0("~/", filename)) > print(Encoding(x11)) [1] "unknown" > x12 <- enc2utf8( path.expand(paste0("~/", filename)) ) > print(Encoding(x12)) [1] "unknown" > x2 <- paste0(path.expand("~/"), f...

Hi, I am failing make check in r72721 at the end of reg-tests-1d.R. The relevant block of code is ## path.expand shouldn't translate to local encoding PR#17120 filename <- "\U9b3c.R" print(Encoding(filename)) x1 <- path.expand(paste0("~/", filename)) print(Encoding(x1)) x2 <- paste0(path.expand("~/"), filename) print(Encoding(x2)) stopifnot(identical( path.expand(paste0("~/", filename)), paste0(path.expand("~/"), filename)))...

....expand("~/"), filename))) try stopifnot(path.expand(paste0("~/", filename)) == paste0(path.expand("~/"), filename)) Duncan Murdoch > >> ## path.expand shouldn't translate to local encoding PR#17120 >> filename <- "\U9b3c.R" >> >> x11 <- path.expand(paste0("~/", filename)) >> print(Encoding(x11)) > [1] "unknown" >> x12 <- enc2utf8( path.expand(paste0("~/", filename)) ) >> print(Encoding(x12)) > [1] "unknown" >> x2 <- past...