Nothing
remove_indent <- function(x, sel_element) {
x_tmp <- x[sel_element == 3]
blank_first <- sapply(seq_along(x_tmp), function(tt) x_tmp[[tt]][1] == '')
x_tmp2 <- x_tmp[blank_first]
x_tmp2 <- lapply(seq_along(x_tmp2), function(tt) x_tmp2[[tt]][-1])
x_tmp[blank_first] <- x_tmp2
x[sel_element == 3] <- x_tmp
return(x)
}
collapse_columns <- function(x_list, lengths) {
do.call('c',
do.call('c',
lapply(1:max(lengths), function(ii)
lapply(seq_along(x_list), function(xx)
x_list[[xx]][ii]
))
)
)
}
remove_hyphen <- function(text_lines) {
hyphen_location <- grep("-$", text_lines)
hyphen_wrap_text <- text_lines[hyphen_location + 1]
hyphen_wrap_text <- strsplit(hyphen_wrap_text, split = ' ')
hyphen_wrap_text <- unlist(lapply(seq_along(hyphen_wrap_text), function(xx)
hyphen_wrap_text[[xx]][1]))
for(xx in seq_along(hyphen_location)) {
text_lines[hyphen_location[xx]] <- gsub("-$", hyphen_wrap_text[xx],
text_lines[hyphen_location[xx]])
text_lines[hyphen_location[xx] + 1] <- gsub(hyphen_wrap_text[xx], "",
text_lines[hyphen_location[xx] + 1],
fixed = TRUE)
}
text_lines <- gsub("^\\s+|\\s+$", '', text_lines)
text_lines
}
true_false <- function(x, chars) {
x > chars
}
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.