The R Project SVN R

Rev

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

Rev 82827 Rev 84095
Line 178... Line 178...
178 
    xl <- x
 178 
    xl <- x
179 
    Encoding(xl) <- "latin1"
 179 
    Encoding(xl) <- "latin1"
180 
    stopifnot(Encoding(strsplit(xl, "", useBytes=TRUE)[[1]]) == "unknown",
 180 
    stopifnot(Encoding(strsplit(xl, "", useBytes=TRUE)[[1]]) == "unknown",
181 
              Encoding(strsplit(xl, "")[[1]]) == "latin1",
 181 
              Encoding(strsplit(xl, "")[[1]]) == "latin1",
182 
              Encoding(strsplit(xl, "\x98")[[1]]) == "latin1",
 182 
              Encoding(strsplit(xl, "\x98")[[1]]) == "latin1",
183 
              Encoding(strsplit(xl, x98)[[1]]) == "unknown")
 183 
              Encoding(strsplit(xl, x98)[[1]]) == "bytes")
184 
}
 184 
}
185 
 
 185 
 
186 
## from strsplit.Rd
 186 
## from strsplit.Rd
187 
z <- strsplit("A text I want to display with spaces", NULL)[[1]]
 187 
z <- strsplit("A text I want to display with spaces", NULL)[[1]]
188 
stopifnot(identical(z,
 188 
stopifnot(identical(z,