inst/apps/diagram_repairable/ui.R

In teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
               add_css(),

sidebarLayout( 
   sidebarPanel(width = 5,
      shinyAce::aceEditor(fontSize = 16, 
                          wordWrap = T,
                          outputId = "repairplot", 
                          mode = "r", 
                          theme = "github", 
                          height = "450px", 
                          value = 
"Mat2 <- matrix(NA, nrow = 3, ncol = 3)

AA <- as.data.frame(Mat2)
AA[[1,2]] <- 'F[1:0]'
AA[[1,3]] <- 'F[2:0]'
AA[[2,1]] <- 'F[0:1]'
AA[[3,1]] <- 'F[0:2]'

name <- c(expression(0[Alive]), 
          expression(1[Failed]), 
          expression(2[Failed]))

par(family='serif', mar = c(0,0,0,0))

diagram::plotmat(A = AA, 
                pos = 3, 
                curve = .575, 
                name = name, 
                lwd = 2, 
                arr.len = 0.6, 
                arr.width = 0.25, 
                my = .05, 
                box.size = 0.08, 
                arr.type = 'triangle', 
                dtext = -1,
                relsize = .99,
                box.cex = 1.5,
                cex = 1.25)"),

        actionButton("evalrepair", "Evaluate")),
        
        mainPanel(plotOutput("plotrepair", height = "600px"), width = 7)))