Allows downloading of csv files automatically.

This commit is contained in:
2024-01-25 12:13:20 -08:00
parent bfa162e1cf
commit d824cdfff4
2 changed files with 37 additions and 1 deletions

View File

@@ -107,7 +107,10 @@
(defn results-csv-query [{:keys [query-params params]}]
(statsd/time! [(str "export.query.time") {:tags #{(str "query:" (:query-id params))}}]
{:body (execute-query query-params params)}))
{:body (execute-query query-params params)
:headers (cond-> {"Content-Type" "text/plain"}
(or (get query-params "dl") (get query-params :dl)) (assoc "Content-Disposition" "attachment; filename=\"results.csv\""
"Content-Type" "text/csv"))}))
(def routes2 {"api/" {#"queries/?" {[:query-id "/raw"] {:get :raw-query}
[:query-id "/results/csv"] {:get :results-csv-query}