#' @title Concatenate strings using underscore as operator
#' @export
paste_ <- function(...) {
output <- paste(..., sep = "_")
## V1
# ## Get function call arguments
# input <<- as.list(match.call(expand.dots = FALSE))["..."]
# input <<- do.call(c, unlist(input, recursive=FALSE, use.names = F), env = parent.frame())
#
# output <- paste(input, collapse = "_")
## V2
# ## Get function call arguments
# input <- match.call(expand.dots = FALSE)[["..."]]
# print(input)
# print("--------------")
# ## Eval to obtain vector values in instead of c() expression
# input <- unlist(lapply(input, eval))
#
# print(input)
# print("--------------")
# # input <- do.call(c, input, env = parent.frame())
# #
# # print(input)
# # input <- as.vector(input)
# # print(input)
#
# # output <- paste(input, collapse = "_")
return(output)
}
# paste_(sett_clust$algorithm, "HALLO")
#
#
#
#
# testfun <- function(...) {
# paste_(...)
# #paste(...)
# }
#
# testfun2 <- function(...) {
# testfun(...)
# }
#
# testfun2(sett_clust$algorithm, "test2")
#
# paste_ <- function(...) {
#
# ## Get function call arguments
# input <- as.list(match.call(expand.dots = FALSE))["..."]
#
# ## Evaluate non-character objects
# input <- vapply(unlist(input), function(x) {
# if ( !is.character(x) ) {
#
# }
# eval(x, env = parent.frame()) else
# x
# }, character(1))
#
# ## Collapse vector
# paste(input, collapse = "_")
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.