Visualize the image and nickname of Auth0-users into shinyapp

Help
,
1

Hello, everybody,
I am new to this community and I would like to ask you for assistance in solving a problem related to:

  1. Shinyapps.io
  2. Auth0

I’m trying to display the profile image and nickname of the user directly in the app, in order to make the UI more professional.

the follow is the code that i am using to do so.

library(shiny)

library(bs4Dash)
library(magick)
library(auth0)

options(shiny.port=8000)

ui ← bs4DashPage(
old_school = FALSE,
sidebar_min = TRUE,
sidebar_collapsed = FALSE,
controlbar_collapsed = TRUE,
controlbar_overlay = TRUE,
enable_preloader = TRUE,
loading_duration = 2,
loading_background = “Black”,
title = “Smart Farming App”,

navbar = bs4DashNavbar(skin = “dark”,
status = “black”,
sidebarIcon = “bars”,
compact = TRUE,
rightUi = bs4DropdownMenu(show = FALSE,
labelText = NULL,
status = “danger”,
menuIcon = “user”,
logoutButton(label = “Logout”))),

sidebar = bs4DashSidebar(skin = “light”,
status = “primary”,
title = “Smart Farming App”,
brandColor = “primary”,
bs4SidebarMenu(

                         bs4SidebarMenuItem(
                           text = "Profilo utente",
                           tabName = "profilo",
                           icon = "user"))),

footer = bs4DashFooter(),

body = bs4DashBody(
bs4TabItems(

  bs4TabItem(
    tabName = "profilo",
    plotOutput(outputId = "image"),
    verbatimTextOutput(outputId = "profile")))))

server ← function(input, output, session) {

output$image<-renderPlot({
image_url ← (session$userData$auth0_info$picture)
pic ← image_read(session$userData$auth0_info$picture)
plot(pic)
})

output$profile<-renderPrint({
session$userData$auth0_info$nickname
})
}

shinyAppAuth0(ui=ui, server = server)

the result I get is NULL
there is anyone can help me?