getSourceString = function(sourceContent){
subTypeDataSrc <- names(sourceSynonyms)
useI <- vector(length = length(subTypeDataSrc))
for (i in 1:length(sourceSynonyms)){
for (k in 1:length(sourceSynonyms[[i]])){
if (grepl(as.character(sourceSynonyms[[i]][k]),sourceContent,ignore.case=TRUE)){
useI[i] = TRUE
}
}
}
if (any(useI)){
sourceString <- paste(c('Data sources:',
paste(c(subTypeDataSrc[useI]),collapse=', ')),collapse=' ')
} else {
sourceString <- NULL
}
return(sourceString)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.