From f32e07a95796b35cccdb48e5e85c6e98e1d35419 Mon Sep 17 00:00:00 2001
From: levisc8 <levisc8@gmail.com>
Date: Tue, 1 Oct 2019 01:25:58 +0200
Subject: [PATCH] delete accidental insertions

---
 R/browse.R | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/R/browse.R b/R/browse.R
index 0493294..0b44b66 100644
--- a/R/browse.R
+++ b/R/browse.R
@@ -280,13 +280,6 @@ taxa_nest <- function(x, full_tbl){
     
   }
 
-  # nest data set
-  out  <- x %>% 
-    dplyr::group_by(.dots = setdiff(names(x),taxas)) %>%
-    tidyr::nest(taxas = tidyr::one_of(taxas))
-  # Names of taxonomic lists
-  names(out$taxas)  <- paste0("taxa_project_", out$proj_metadata_key)
-  
   return(out)
   
 }