removed sis points download option

jumpingrivers · Feb 24, 2023 · b023bc9 · b023bc9
1 parent 6d92e69
commit b023bc9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 31 deletions.
diff --git a/R/app.R b/R/app.R
@@ -140,14 +140,10 @@ geocatApp <- function(...) {
 
       br(),
       br(),
-      ## SIS download widget ----
+      ## CSV download widget ----
       fluidRow(
         column(
-          4, align="center", 
-          downloadButton('download', "Download SIS point file")
-        ),
-        column(
-          4, align="center", 
+          8, align="center", 
           downloadButton('download_csv', "Download csv file")
         ),
         column(
@@ -503,25 +499,6 @@ server <- function(input, output, session) {
     }
   })
 
-  # point file download handler
-  output$download = downloadHandler(
-    filename = function(){
-      date <- format(Sys.Date(), "%Y%m%d")
-      species_name <- "SIS_points"
-      paste(species_name, "_", date, ".csv", sep = "" )
-    },
-    content = function(file){
-      df = csvPointsInput()
-      # merge with sis format
-      df <- dplyr::bind_cols(df,sis_format)
-      df$dec_lat <- df$latitude
-      df$dec_long <- df$longitude
-      #df <- df |> 
-      #  dplyr::select(-c(latitude, longitude))
-      write_csv(df, file)
-    }
-  )
-
   # csv file download handler
   output$download_csv = downloadHandler(
     filename = function(){

diff --git a/rsconnect/shinyapps.io/spbachman/geocat_staging.dcf b/rsconnect/shinyapps.io/spbachman/geocat_staging.dcf
@@ -5,10 +5,7 @@ account: spbachman
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 5908463
-bundleId: 6228596
+bundleId: 6883120
 url: https://spbachman.shinyapps.io/geocat_staging/
-when: 1661243438.76297
-lastSyncTime: 1661243438.76297
-asMultiple: FALSE
-asStatic: FALSE
-ignoredFiles: docs/dev_hire_specs.xlsx|docs/occ_fields_translator.xlsx
+when: 1677238788.34096
+lastSyncTime: 1677238788.34097