inst/ui.R

In rsangole/tslabeler: Labeling Tool For Time Series Data

shiny::tagList(
    useShinyjs(),
    shiny::navbarPage(
        title = "",
        id = "main_navbar",
        position = "static-top",
        theme = shinythemes::shinytheme("yeti"),
        shiny::tabPanel(
            title = "Hello",
            value = "hello",
            icon = icon("hand-spock"),
            ui_hello()
        ),
        shiny::navbarMenu(
            title = "Input",
            shiny::tabPanel(
                title = "Data Frame",
                icon = icon("server"),
                ui_from_env_df()
            ),
            # shiny::tabPanel(
            #     title = "Tsibble",
            #     value = "tsibble",
            #     icon = icon("server"),
            #     ui_from_env_tsibble()
            # ),
            # "---",
            shiny::tabPanel(title = "From Disk", icon = icon("hdd"),
                            ui_from_disk())
        ),
        shiny::tabPanel(
            title = "Label",
            value = "label",
            icon = icon("tags"),
            ui_label()
        ),
        shiny::tabPanel(
            title = "Features",
            icon = icon("th"),
            value = "features",
            ui_features()
        ),
        shiny::tabPanel(
            title = "Save",
            value = "save",
            icon = icon("download"),
            ui_save()
        )
    )
)