Nothing
.nonfinite <-
function(x, char,
nonfinites_as_missing = FALSE,
encoding = "UTF-8",
characters = 128L){
if (nonfinites_as_missing) {
char <- ifelse(!is.finite(x), NA_character_, char)
} else {
char <- ifelse((!is.finite(x) & !is.character(x)), tolower(as.character(x)), char)
char <- ifelse(char == 'inf', '+inf', char)
char <- ifelse(is.nan(x), '+nan', char)
}
char <- ifelse(is.na(x) & !is.nan(x), NA_character_, char)
unicode <- iconv(substring(char,1,characters), to = encoding, toRaw = TRUE)
out <- unlist(lapply(unicode, function(i) {
if (is.null(i)) {
# append three null bits
intToBits(0)[1:3]
} else {
# append EOL and null bit
c(i,charToRaw("\n"),intToBits(0)[1])
}
}))
return(out)
}
unfvector_to_raw <- function(x, encoding = "UTF-8", characters = 128L) {
unicode <- iconv(substring(x, 1, characters), to = encoding, toRaw = TRUE)
out <- unlist(lapply(unicode, function(i) {
if (is.null(i)) {
# append three null bits
intToBits(0)[1:3]
} else {
# append EOL and null bit
c(i,charToRaw("\n"),intToBits(0)[1])
}
}))
return(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.