#' Run Dend and dots
#'
#' @param rawDendrogram NA
#' @param trimdLabsDend NA
#' @param pool NA
#' @param columnID NA
#' @param colors NA
#' @param text_shift NA
#'
#' @return NA
#' @export
#'
runDendDots <- function(rawDendrogram, trimdLabsDend, pool, columnID, colors, text_shift) {
conn <- pool::poolCheckout(pool)
dendLabs <- labels(rawDendrogram)
query <- DBI::dbSendStatement("SELECT *
FROM metaData
WHERE `Strain_ID` = ?",
con=conn)
DBI::dbBind(query, list(dendLabs))
selectedMeta <- DBI::dbFetch(query)
DBI::dbClearResult(query)
selectedMeta <- selectedMeta[ ,colnames(selectedMeta) %in% columnID]
uniq <- unique(selectedMeta)
selectedMeta <- sapply(uniq, function(x) selectedMeta %in% x)
for(i in seq_along(colors)){
selectedMeta[,i][which(selectedMeta[, i] == TRUE)] <- colors[[i]]
}
selectedMeta[selectedMeta == FALSE] <- "#00000000"
colnames(selectedMeta) <- uniq
tempRepo::colored_dots(selectedMeta,
trimdLabsDend,
horiz = T,
#rowLabels = uniq,
sort_by_labels_order = FALSE,
text_shift = text_shift)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.