How to embed shiny app on SharePoint with Iframe tag

I have a very simple app showing some data. How do you embed this in a SharePoint site using using iframe ? or is there an easier way to do this ?

library(ggplot2)
library(shiny)
library(DT)
library(readr)

PRTypeCount <- read_csv("H:/SP/PRTypeCount.txt")



ui <- navbarPage(
title = 'PRTypeCount',
tabPanel('PRTypeCount', DT::dataTableOutput('PRTypeCount')))

server<-function(input, output) {

output$PRTypeCount <- DT::renderDataTable(
DT::datatable(PRTypeCount, options = list(pageLength = 25))
)

}

shinyApp(ui = ui, server = server)