R/rsc_filter.R

In plumbertableau: Turn 'Plumber' APIs into 'Tableau' Extensions

# A plumber filter for dealing with various details related to RStudio Connect
rsc_filter <- function(req, res) {
  # Request ID - RStudio Connect sends X-RS-CORRELATION-ID, but we will use the
  # generic X-CORRELATION-ID
  if (!rlang::is_null(req$HTTP_X_RS_CORRELATION_ID)) {
    req$HTTP_X_CORRELATION_ID <- req$HTTP_X_RS_CORRELATION_ID
  }

  plumber::forward()
}