diff --git a/R/app.R b/R/app.R index d460058..2db3703 100644 --- 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 index e8830c1..92dcfb1 100644 --- 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