Nothing
# Define UI for application that draws a histogram
navbarPage(title = HTML(paste0('<p style="margin-top: 0.05cm;">', paste0(rep(" ", 25), collapse = ""), ' shinybatch</p>')), id = "nav-id", collapsible = TRUE,
position = "fixed-top", theme = "css/custom.css",
header = div(
br(), br(), br(), br(),
a(href = "https://www.datastorm.fr",
target = "_blank", img(src = "img/img-datastorm-logo-white.png", class = "ribbon", style = "margin-left: 0cm;margin-top: 0.1cm;height: 55px")),
a(href = "https://github.com/datastorm-open/shinybatch",
target = "_blank", img(src = "img/github.png", class = "ribbon", style = "margin-left: 3cm;margin-top: 0cm;height: 60px")),
# footer
div(class = "ds_app_footer", div(p("copyright © Datastorm 2020", style = "color:white"), align = "center")),
),
windowTitle = "shinybatch",
tabPanel("Introduction",
includeMarkdown("www/script/intro.md")
),
tabPanel("Démo",
fluidRow(
shinydashboard::tabBox(width = 12,
tabPanel("Configure tasks",
fluidRow(
column(2,
numericInput("fun_nb_points", "Number of points",
min = 1, max = 10000, value = 100, step = 1)
),
column(2,
sliderInput("fun_mean", "Mean",
min = -10, max = 10, value = 0, step = 0.1, width = "100%")
),
column(2,
sliderInput("fun_sd", "Standard deviation",
min = 0, max = 100, value = 1, step = 0.5, width = "100%")
),
column(2,
numericInput("sleep_time", "Sleep time (s)",
min = 0, max = 30, value = 0, step = 1)
)
),
fluidRow(
column(2,
numericInput("priority", "Priority",
min = 0, max = 10, value = 1, step = 1)
),
column(3,
textInput("title", "Title",
value = "Task title", width = "100%")
),
column(3,
textInput("description", "Description",
value = "Task description", width = "100%")
)
),
hr(),
fluidRow(
column(6, offset = 3,
actionButton("go_task", "Configure the task", width = "100%")
)
)
),
tabPanel("View tasks",
fluidRow(
column(12,
tasks_overview_UI("my_id_2")
)
),
conditionalPanel(condition = "output.launch_task",
br(),
hr(),
fluidRow(
conditionalPanel(condition = "output.launch_task",
column(12,
div(actionButton("show_task", "Display task result", width = "40%"),
align = "center")
)
),
column(12,
conditionalPanel(condition = "input.show_task > 0",
plotOutput("task_plot")
)
)
)
)
)
)
)
),
tabPanel("Code",
fluidRow(
shinydashboard::tabBox(width = 12,
tabPanel("global.R",
includeMarkdown("www/script/global.md")
),
tabPanel("server.R",
includeMarkdown("www/script/server.md")
),
tabPanel("ui.R",
includeMarkdown("www/script/ui.md")
)
)
)
),
br(), br(), br()
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.