przekladaniec <- function(names){
names <- names(names)
c <- sapply(names,function(x){
a<- paste0(x,":no")
b<- paste0(x,":yes")
return(c(a,b))
})
return(as.vector(c))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.