Fix cloud download bug

DOI-USGS · Jun 30, 2022 · 313bd96 · 313bd96
1 parent 3076c8e
commit 313bd96
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/gql_helpers.R b/R/gql_helpers.R
@@ -59,10 +59,7 @@ get_cloud_download_url <- function(cr, gql) {
 
 	query <- "query getS3DownloadUrl($input: SaveFileInputs){ getS3DownloadUrl(input: $input){ downloadUri }}"
 
-	variables <- sprintf('{"input": {"selectedRows": {"cuid": "%s", "key": "%s", "title": "%s", "useForPreview": "%s"}}}',
-											 cr$cuid, cr$key, cr$title, cr$useForPreview)
-
-	variables <- list(input = list(selectedRows = list(cuid = cr$cuid, key = cr$key, title = cr$title, useForPreview = cr$useForPreview)))
+	variables <- list(input = list(selectedRows = list(cuid = cr$cuid, key = cr$key, title = cr$title, useForPreview = as.logical(cr$useForPreview))))
 
 	json <- jsonlite::toJSON(list(query = query, variables = variables), auto_unbox = TRUE)