In Radiant app , object 'navbar_proj' not found

[sandhya_tuptewar]

library(radiant)
library(shiny)

ui<-navbar_proj(
suppressWarnings(
do.call(
navbarPage,
c(
"Radiant",
getOption("radiant.nav_ui"),
getOption("radiant.design_ui"),
getOption("radiant.basics_ui"),
getOption("radiant.model_ui"),
getOption("radiant.multivariate_ui"),
getOption("radiant.shared_ui"),
help_menu("help_ui")
)
)
)
)

shinyServer(function(input, output, session) {
if (isTRUE(getOption("radiant.from.package"))) {
library(radiant)
}

summary.correlation <- radiant.basics:::summary.correlation

enc <- getOption("radiant.encoding")

source(file.path(getOption("radiant.path.data"), "app/init.R"), encoding = enc, local = TRUE)
source(file.path(getOption("radiant.path.data"), "app/radiant.R"), encoding = enc, local = TRUE)

for (file in list.files(
c(
file.path(getOption("radiant.path.data"), "app/tools/app"),
file.path(getOption("radiant.path.data"), "app/tools/data")
),
pattern = "\.(r|R)$",
full.names = TRUE)) {
source(file, encoding = enc, local = TRUE)
}

rmenus <- c("radiant.data", "radiant.design", "radiant.basics", "radiant.model", "radiant.multivariate")

options(radiant.example.data = rmenus)

for (i in rmenus[-1]) {
if (!isTRUE(getOption("radiant.from.package"))) {
eval(parse(text = paste0("radiant.data::copy_all(", i, ")")))
cat(paste0("\nGetting ", i, " from source ...\n"))
}

ipath <- paste0(strsplit(i, "\\.")[[1]], collapse = ".path.")
source(file.path(getOption(ipath), "app/help.R"), encoding = enc, local = TRUE)

for (file in list.files(file.path(getOption(ipath), "app/tools/analysis"), pattern = "\\.(r|R)$", full.names = TRUE))
  source(file, encoding = enc, local = TRUE)

}

source(file.path(getOption("radiant.path.model"), "app/radiant.R"), encoding = enc, local = TRUE)

output$help_ui <- renderUI({
sidebarLayout(
sidebarPanel(
help_data_panel,
help_design_panel,
help_basics_panel,
help_model_panel,
help_multivariate_panel,
uiOutput("help_text"),
width = 3
),
mainPanel(
HTML(paste0("

Select help files to show and search

---

")),
htmlOutput("help_data"),
htmlOutput("help_design"),
htmlOutput("help_basics"),
htmlOutput("help_model"),
htmlOutput("help_multivariate")
)
)
})

saveStateOnRefresh(session)
})