Прогрессивная панель в функции Showmodal

Question

Ниже приведен пример кода, в который я включил showmodal вверху после нажатия кнопки. Но хотел проверить, есть ли способ поместить showmodal в центр экрана, а также вместо просто сообщения, можем ли мы иметь прогрессивную полосу (в самой функции showmodal)

observeEvent(input$button, {
     showModal(modalDialog("Doing a function", footer=NULL))
     #Do the stuff here....
     #...
     #...
     #Finish the function
     removeModal()
})