adding WM data pull script to run on demand in trigger analysis

NEFSC · Jan 22, 2024 · 07b3876 · 07b3876
1 parent b07203b
commit 07b3876
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/scripts/global_libraries.R b/scripts/global_libraries.R
@@ -35,7 +35,8 @@ library(stringi)
 library(DBI)
 library(sqldf)
 library(shinymanager)
-library(kableExtra)
+#library(ssh)
+#library(kableExtra)
 require(ROracle)
 #library(ROracle)
 # require(shiny)

diff --git a/scripts/trigger_server.R b/scripts/trigger_server.R
@@ -39,9 +39,9 @@ if (file.exists('./scripts/oracleaccess.R') == TRUE) {
 
 
     ## VISUAL SIGHTINGS ----
-
-
     if (input$sig_acou == 'Visual Sightings') {
+      #source('./scripts/Whalemap_datapull.R', local = TRUE)$value
+
       datesql <-
         paste0(
           "select mammals.saswmjoin2.ID, SIGHTDATE,GROUPSIZE,LAT,LON,SPECIES_CERT,MOMCALF,FEEDING,DEAD,SAG,ENTANGLED,CATEGORY,mammals.action.action,OBSERVER_PEOPLE,OBSERVER_PLATFORM,OBSERVER_ORG,REPORTER_PEOPLE,REPORTER_PLATFORM,REPORTER_ORG,WHALEALERT,OBSERVER_COMMENTS