testing gs4_deauth

rubenpp7 · Apr 7, 2021 · 7e18946 · 7e18946
1 parent 6a3eb99
commit 7e18946
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 113 deletions.
diff --git a/R/divewatch.R b/R/divewatch.R
@@ -7,7 +7,6 @@
 #' 
 #' @param data The URL ID of the database in google sheets, if no URL is provided a mock dataset generated
 #' by the test_data function will be read
-#' @param email email account that will be used to access the Logbook in Google Spreadsheet
 #' 
 #' @author Ruben Perez Perez
 #' 
@@ -23,9 +22,8 @@
 #' }
 
 
-divewatch <- function(data = NA,
-                      email = NA){
-              prep_data(data, email)
+divewatch <- function(data = NA){
+              prep_data(data)
               download.file("https://raw.githubusercontent.com/rubenpp7/divewatchr/master/files/overview.Rmd",
                         "overview.Rmd")
               render("overview.Rmd")

diff --git a/R/prep_data.R b/R/prep_data.R
@@ -8,7 +8,6 @@
 #' @param data The URL ID of the database in google sheets, if no URL is provided a mock dataset generated
 #' by the test_data function will be read
 #' @param path directory location where the files will be read from or written into
-#' @param email email account that will be used to access the Logbook in Google Spreadsheet
 #' 
 #' @author Ruben Perez Perez
 #' 
@@ -30,15 +29,16 @@
 
 
 prep_data <- function (data = NA,
-                       email = NA,
+                       #email = NA,
                        path = getwd()){
 
 ### READ DATA
 #-------------
 
 if(!is.na(data)){  
 # From Google sheets
-gs4_auth(email)
+#gs4_auth(email)
+gs4_deauth()  
 (scuba_log <- read_sheet(data, sheet = "logbook", na = "")) 
 (scuba_geo <- read_sheet(data, sheet = "coordinates", na = ""))
 (scuba_typ <- read_sheet(data, sheet = "divetypes", na = ""))

diff --git a/divewatchrshiny/app.R b/divewatchrshiny/app.R
diff --git a/man/divewatch.Rd b/man/divewatch.Rd
diff --git a/man/prep_data.Rd b/man/prep_data.Rd