fixed a few examples

Author: zachary-foster

R/heat_tree.R

@@ -363,7 +363,7 @@ heat_tree.Taxmap <- function(.input, ...) {
 #' #  You can plot up to 4 quantative variables use node/edge size/color, but it
 #' #  is usually best to use 2 or 3. The plot below uses node size for number of
 #' #  OTUs and color for number of reads and edge size for number of samples
-#' x$data$taxon_counts <- calc_n_samples(x, dataset = "taxon_counts", append = TRUE)
+#' x$data$n_samples <- calc_n_samples(x, dataset = "taxon_counts")
 #' heat_tree(x, node_label = taxon_names, node_size = n_obs, node_color = total,
 #'           edge_color = n_samples)
 #' 

R/parsers.R

@@ -573,16 +573,17 @@ parse_silva_fasta <- function(file = NULL, input = NULL, include_seqs = TRUE) {
   raw_headers <- names(raw_data)
 
   # Make classifications easier to parse
-  name_chars <- "A-Za-z0-9._+ \\-"
+  name_chars <- "A-Za-z0-9._+ ='\"\\-"
   parts <- stringr::str_match(raw_headers,
                               paste0("^(.+;)([", name_chars, "]+)(\\(?.*\\)?)$"))
   parts <- as.data.frame(parts[, -1], stringsAsFactors = FALSE)
   colnames(parts) <- c("tax", "binom", "common")
   parts$binom <- sub(parts$binom, pattern = "sp\\. ", replacement = "sp\\._")
   parts$binom <- sub(parts$binom, pattern = "uncultured ", replacement = "uncultured_")
-  parts$binom <- gsub(pattern = " ", replacement = ";", parts$binom) 
+  # parts$binom <- gsub(pattern = " ", replacement = ";", parts$binom) 
   parts$binom <- sub(pattern = ";$", replacement = " ", parts$binom)
   headers <- apply(parts, MARGIN = 1, paste0, collapse = "")
+  headers <- gsub(headers, pattern = "\\[|\\]", replacement = "")
 
   # Create taxmap object
   output <- taxa::extract_tax_data(tax_data = headers,

R/primersearch.R

@@ -210,10 +210,9 @@ parse_primersearch <- function(file_path) {
 #' 
 #' # Visualize which taxa were amplified
 #' #  This work because only amplicons are returned by `primersearch`
-#' n_amplified <- obj$obs_apply("pcr",
-#'                              function(x) length(unique(x)),
-#'                              value = "input",
-#'                              simplify = TRUE)
+#' n_amplified <- unlist(obj$obs_apply("pcr",
+#'                                     function(x) length(unique(x)),
+#'                                     value = "input"))
 #' prop_amped <- n_amplified / obj$n_obs()
 #' heat_tree(obj,
 #'           node_label = taxon_names,