Code working in Jupyter notebook does not work in shiny app

Question

Running this code in a Jupyter R notebook works fine. However, when running the same code in the server.R file of a shiny app, the following error occurs: Error in fnpct(G