Создание контейнера моей задней части, а также кода переднего конца через блестящую упаковку в R

Question

У меня вопрос: я создал код, в котором вызывается много функций, ранее я вызывал функцию с помощью Ajax из внешнего интерфейса, а в бэкэнде API Plumber выполнял вызов этого конкретного R-файл, в котором хранятся функции, я хочу сделать контейнер через блестящий пакет, в котором будет выполняться как внешний, так и внутренний код.

Я выполнил работу интерфейса через блестящий пакет, но не могу вызвать функции моего R-файла, показывая ошибку 400 из-за сбоя загрузки ресурса.

library(shiny)
source('www/Full_TS_Classification_Model.R',local = TRUE)
shinyApp(
  ui = fluidPage(
       mainPanel(
      includeHTML("www/index.html")
        )),
  server = function(input, output) {

    getPage<-function() {
    #return(includeHTML("master-final_industry.html"))
    }
    output <-renderUI({getPage()})
  }
)

Я получил работу интерфейса, но не смог вызвать функции в моем R-файле для запуска кода сервера.