app.R

# Load global settings
source("global.R")

# Load required packages
library(shiny)
library(shinyjs)
library(shinydashboard)
library(shinyFeedback)
library(shinyhelper)
library(markdown)

# Define dashboard header
header <- dashboardHeader(title = "BNR")

# Define dashboard sidebar
sidebar <- dashboardSidebar(sidebarMenu(
  menuItem(
    "Home",
    tabName = "home",
    icon = icon("home")
  ),
  menuItem(
    "Data Import",
    tabName = "data_import",
    icon = icon("database")
  ),
  menuItem(
    "Graph Design",
    tabName = "graph_builder",
    icon = icon("project-diagram")
  ),
  menuItem(
    "Parameter Learning",
    tabName = "parameter_learning",
    icon = icon("calculator")
  ),
  menuItem(
    "Query Estimation",
    tabName = "query_estimation",
    icon = icon("cogs")
  )
))

# Define the home page
home <- tagList(
  fluidRow(
    box(
      status = "primary",
      solidHeader = TRUE,
      width = 12,
      includeMarkdown("README.md")
    )
  )
)

# Define dashboard body
body <- dashboardBody(
  useShinyjs(),
  useShinyFeedback(),
  tabItems(
    tabItem(tabName = "home", home),
    tabItem(tabName = "data_import", dataImportUI()),
    tabItem(tabName = "graph_builder", graphDesignUI()),
    tabItem(tabName = "parameter_learning", parameterLearningUI()),
    tabItem(tabName = "query_estimation", queryEstimationUI())
  )
)

# Define UI for the application
ui <- dashboardPage(header, sidebar, body)

# Define on start setup
onStart <- function() {

}

# Define server logic required
server <- function(input, output, session) {
  # Define observer for helpers.
  observe_helpers(session, help_dir = "help")

  dataset <- dataImportServer()
  graph <- graphDesignServer(dataset = dataset)
  model <- parameterLearningServer(dataset = dataset, graph = graph)
  queryEstimationServer(model = model)
}

# Get default port
port <- strtoi(Sys.getenv("R_SHINY_PORT"))
if (is.na(port)) {
  port <- 8080
}

# Run the application
shinyApp(
  ui = ui,
  server = server,
  onStart = onStart,
  options = list(
    "host" = "0.0.0.0",
    "port" = port
  )
)