Redirect R Shiny to local host after oauth token authentication for Azure AD

I am creating a Shiny app that involves AAD token authentication to connect to Snowflake.

I am using a .js script below that obtains the token:

async function wrapperFunc() {
                const msalConfig = {
                    auth: {
                        clientId: 'XXXXXXXXX',
                        authority: ''

                const msalInstance = new msal.PublicClientApplication(msalConfig);

                const silentRequest = {
                    scopes: ["api://XXXXXX/session:role-any"]

                const callLogin = async function(silentRequest, msalInstance) {
                    try {
                        const loginResponse = await msalInstance.loginPopup(silentRequest);
                        return loginResponse;
                    } catch (err) {

                response = callLogin(silentRequest, msalInstance);
        return response;
wrapperFunc().then(result => {
        Shiny.setInputValue("oauthToken", result['accessToken']);

and then plugging that token into the following db connection:

pii_db_connection <- function(OAuth_token) {
  connection <- DBI::dbConnect(
    drv = odbc::odbc(),
    dsn = "snowflake",
    token = OAuth_token,
    authenticator = "oauth"

I am redirected to the browser window to log in, and then once that's done, I get hit with this error message:

AADSTS50011: The redirect URI 'XXXXX' specified in the request does not match the redirect URIs configured for the application 'XXXXX'. Make sure the redirect URI sent in the request matches one added to your application in the Azure portal. 

I can access the app by changing the URL to a localhost URL. But my question is, can I get it to automatically redirect the browser window to the localhost URL?

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.