URL shortener for bookmarked URL in R Shiny app


I have a shiny app where we use bookmarking URL. The URLs seem to be too long. I am saving these URLs in a datatable. How can I short them before adding to the app? Ex for the long URL is as below: