inst/swirlify-app/ui.R

In swirlify: A Toolbox for Writing 'swirl' Courses

library(shiny)
library(shinyAce)

shinyUI(navbarPage("swirlify 0.5",
  tabPanel("Editor",
    fluidRow(
      column(6,
        selectInput("qt", label = h3("Question Type"), 
          choices = c("Message", "Command", "Multiple Choice",
            "Figure", "Script", "Video", "Numerical",
            "Text"), 
          selected = "Message"),
        uiOutput("ui"),
        actionButton("add", "Add Question")
      ),
      column(6,
        aceEditor("ace", value = gsub("\r", "", readChar(getOption("swirlify_lesson_file_path"),
                  file.info(getOption("swirlify_lesson_file_path"))$size)), mode = "yaml",
                  debounce = 100),
        actionButton("save", "Save Lesson"),
        actionButton("demo", "Demo Lesson"),
        br(),
        h4("Question Number where Demo will Start"),
        numericInput("demo_num", NULL,
                     value = 1, min = 1, step = 1, width = "50px")
      )
    )
  ),
  tabPanel("Options",
           h2("Auto-fill"),
           checkboxGroupInput("autofill", label = NULL,
                              c("Output", "Correct Answer",
                                "Answer Tests", "Hint",
                                "Answer Choices", "Figure",
                                "Script", "URL"),
                              c("Output", "Correct Answer",
                                "Answer Tests", "Hint",
                                "Answer Choices", "Figure",
                                "Script", "URL")
                              ),
           actionButton("selectall", "Select All"),
           actionButton("selectnone", "Select None")
           ),
  tabPanel("Help",
           column(2),
           column(8,includeMarkdown("help.md")),
           column(2))
))