Is there any way to use shinyWidgets/shinyhttr along with drop_download() to reflect the progress for downloads?

[max-poltora]

Is there any way to use shinyWidgets/shinyhttr along with drop_download() to reflect the progress for downloads?

[max-poltora]

Hi, everyone! I guess I have found the workaround. However, I believe, it can still be improved. Below is the code for those, who might be interested. @rdrop2 developers, maybe you can take it into consideration and include the feature in upcoming versions? So here is what I have done: I have modified the original drop_download code as follows:

drop_download_shinyhttr <- function(path, local_path = NULL, overwrite = FALSE, progress = interactive(), verbose = interactive(), dtoken, session, id) {
	if (!grepl("^(id|rev):", path)) path <- add_slashes(path)
	if (is.null(local_path)) {
		local_path = basename(path)
	} else if (dir.exists(local_path)) {
		local_path <- file.path(local_path, basename(path))
	}

	url <- "https://content.dropboxapi.com/2/files/download"

	req <- httr::POST(
		url = url,
		httr::config(token = dtoken),
		httr::add_headers("Dropbox-API-Arg" = jsonlite::toJSON(
			list(path = path),
			auto_unbox = TRUE
		)),
		if (progress) shinyhttr::progress(session=session, id=id),
			httr::write_disk(local_path, overwrite)
		)

	httr::stop_for_status(req)

	if (verbose) {
		size <- file.size(local_path)
		class(size) <- "object_size"

		message(sprintf(
			"Downloaded %s to %s: %s on disk",
			path,
			local_path,
			format(size, units = "auto")
		))
	}

	TRUE
}

And then run my app, but with slight modification in server function:

server <- 
function(input, output, session) {
	
	observeEvent(input$click, {
		img = magick::image_read(input$upload$datapath)
		fileName = sprintf("%s.jpg", gsub(":|-| ", "", Sys.time()))
		img %>% saveImage(fileName)

		output$output = renderImage({
			drop_download_shinyhttr(path = paste0(outputDir, "/", fileName), progress = TRUE, dtoken = token, session=session, id="pb")
			list(src = fileName, contentType = "image/jpeg", style = paste0("width: 100%"))
		}, deleteFile=TRUE)
	})
}