libCurl HTTP handler doesn't handle redirects

[hadley]

Because of

curl::handle_setopt(handle, followlocation = FALSE)

This is probably low-priority, but it caused a confusing error for me when attempting to publish to colarado.rstudio.com which has been renamed to colorado.posit.co

[hadley]

Need to resolve why deployApp("tests/testthat/shinyapp-appR", server = "shinyapps.io") errors when it's removed.

[aronatkins]

@hadley the redirect probably does not receive the necessary authentication information.

[aronatkins]

Second option: The payload may not be attached to the redirect.

[hadley]

The error happens in updateBundleStatus() which returns

> POST /v1/bundles/6903688/status HTTP/2

< HTTP/2 303 
< date: Wed, 01 Mar 2023 18:56:21 GMT
< content-type: text/html; charset=UTF-8
< content-length: 0
< location: https://api.shinyapps.io/v1/bundles/6903688
< server: TornadoServer/6.2

This possibly works by coincidence with redirects disabled, it appears to be a successful request.

I'm not sure why shinyapps.io returns a temporary redirect here, but if I instead send the request to /v1/bundles/6903688, I get a 500 server error.

[hadley]

Can remove these lines once redirects work automatically:

rsconnect/R/ide.R

Lines 56 to 67 in 5103b90

	if (httpResponse$status == 307 &&
	!is.null(httpResponse$location)) {
	# we were served a redirect; try again with the new URL
	url <- httpResponse$location
	if (substring(url, (nchar(url) - nchar(settingsEndpoint)) + 1) ==
	settingsEndpoint) {
	# chop /server_settings from the redirect path to get the raw API path
	url <- substring(url, 1, nchar(url) - nchar(settingsEndpoint))
	}
	next
	}