From ed8b40fe21bb2da00e10a8b9c0405d36b5036cf2 Mon Sep 17 00:00:00 2001 From: sdgamboa Date: Wed, 20 Sep 2023 14:45:26 -0400 Subject: [PATCH] update bacdive --- R/bacdive.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/bacdive.R b/R/bacdive.R index 17fb75bf..cf1a1e10 100644 --- a/R/bacdive.R +++ b/R/bacdive.R @@ -21,9 +21,12 @@ .importBacDiveExcel <- function(verbose = FALSE) { if (verbose) message('Importing BacDive...') - url <- 'https://docs.google.com/spreadsheets/d/1smQTi1IKt4wSGTrGTW25I6u47M5txZkq/export?format=csv' - bacdive_data <- .cleanBD(utils::read.csv(url)) - bacdive_data + # url <- 'https://docs.google.com/spreadsheets/d/1smQTi1IKt4wSGTrGTW25I6u47M5txZkq/export?format=csv' + url <- 'https://docs.google.com/spreadsheets/d/1P4Ic6-N9GVXcX1CdfoamFt6eozfHqt-sxfIRTBvYHWk/export?format=csv' + # bacdive_data <- .cleanBD(utils::read.csv(url)) + bacdive <- utils::read.csv(url) + colnames(bacdive) <- tolower(colnames(bacdive)) + return(bacdive) } ## Helper function for .getBacDive