Nothing
#' Get and set the maximum string length of a character lvec
#'
#' @param x a lvec of type character.
#' @param value the new value of the maximum string length.
#'
#' @examples
#' a <- as_lvec('123')
#' strlen(a) # = 3
#' # Strings are truncated to strlen
#' lset(a, 1, '123456')
#' print(a) # '123'
#' strlen(a) <- 5
#' lset(a, 1, '123456')
#' print(a) # '12345'
#'
#' @rdname strlen
#' @useDynLib lvec
#' @export
strlen <- function(x) {
.Call("get_strlen", x)
}
#' @rdname strlen
#' @export
`strlen<-` <- function(x, value) {
y <- lvec(length(x), type = "character", strlen = value)
lset(y, TRUE, x)
}
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.