R 如何发布？

如何发布以下使用我的包的闪亮代码

我不知道如何发布以下结构的闪亮代码。 作为函数上传是否足够？ 或者我需要将以下代码划分为ui.R和sever.R以及其他材料

请注意，以下函数已在CRAN上的my package中发布

fit_GUI_dashboard <- function(
  DF=data.frame(h=c( 97L,   32L,   31L),f=c( 1L ,  14L,   74L )),
  NL.max=1111,
  NI.max=1111,
  MCMC.chains.max=4


){


  outdir <- system.file("myapp", package = "MyPakcage")

  if (outdir == "") {
    stop("Could not find myapp. Try re-installing `MyPakcage`.", call. = FALSE)
  }



  ui1 <- shinydashboard::dashboardPage(

  )#dashboardPage






  server1 <- shiny::shinyServer(function(input, output) {


  })

  ## run app
  shiny::runApp(list(ui=ui1, server=server1))
  return(invisible())
}

---

fit\u GUI\u dashboard您正在将应用程序发布到您的帐户，因此您可以通过登录shinyapps.io站点上的应用程序控制面板来检查远程R会话的控制台日志

登录并选择应用程序后，单击屏幕右上角的“日志”按钮（在下面的屏幕截图中可见）。日志将准确地告诉您错误是什么：它可能是脚本未加载的引用变量、需要在远程服务器上显式安装的包依赖项，或者完全是其他内容。错误消息将为您提供更多信息

你所说的“发布”是什么意思？谢谢@Aurèle，“发布”的意思是如上图所示。我不确定，但这是为那些没有R环境的人准备的。我努力过，但是，。。。我上传不好。谢谢，我找到了
Logs
按钮。所以我尝试删除错误。