diff --git a/inst/support/report_dataset.Rmd b/inst/support/report_dataset.Rmd index adaebe96..c9bb0888 100644 --- a/inst/support/report_dataset.Rmd +++ b/inst/support/report_dataset.Rmd @@ -371,7 +371,7 @@ if (length(context_properties) > 0) { for (i in seq_along(context_properties)) { var_in <- context_properties[[i]][["var_in"]][1] - writeLines(paste0("**", context_properties[[i]]$context_property[1], "**:", ifelse(is.null(var_in), "Added ", + writeLines(paste0("**", context_properties[[i]]$context_property[1], "**: ", ifelse(is.null(var_in), "Added ", paste0("Mapped from the column titled **", var_in, "** in your dataset ")), "with the category *", context_properties[[i]]$category[1], "*.")) writeLines("\n\nThe following values exist for this context:\n") @@ -789,7 +789,7 @@ updated_taxa <- data_study$taxonomic_updates %>% select(-dataset_id) %>% data_study$taxa %>% filter(taxon_name %in% updated_taxa$taxon_name) %>% left_join( - by = c("taxon_name", "original_name"), + by = c("taxon_name"), updated_taxa %>% bind_rows(empty_tibble_taxonomic_updates) %>% select(original_name, taxon_name, aligned_name, aligned_name_taxon_id, aligned_name_taxonomic_status)