inst/apps/example3_1/ui.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

ui = navbarPage(title = 'Examples 3.1 & 3.2',
                collapsible = T, 
                position = 'fixed-top',
                theme  = SMRD::add_theme(getShinyOption('theme')),
                header = SMRD::add_css(),
                footer = SMRD::add_logo(),

                
tabPanel('Background',
         mainPanel(uiOutput('example3.1'), class = 'shiny-text-output', width = 12)),
                
tabPanel("Data", DT::dataTableOutput("heatexchanger1")),

navbarMenu('Figures', icon = icon('bar-chart-o'),
tabPanel("Figure 3.1",
fluidRow(column(width = 5,
    sidebarPanel(width = '100%',
      shinyAce::aceEditor(fontSize = 16,
                          wordWrap = T,
                          outputId = "fig31plot",
                          mode = "r",
                          theme = "github",
                          height = "450px",
                          value = "
par(family = 'serif', font = 2)

plot(NA,
     axes = FALSE,
     xlab = '',
     ylab = '',
     xlim = range(-50,350),
     ylim = range(-10,150))

segments( x0 = c(0,0,0,100,200,300),
          y0 = c(50,100,50,20,20,20),
          x1 = c(350,350,0,100,200,300),
          y1 = c(50,100,100,100,100,100),
          lwd = c(rep(2,6)))

text(x = rep(-35,6),
     y = c(seq(27,127,50),seq(17,117,100),6),
     labels = c('Unconditional',
                'Plant 1',
                '100 tubes',
                'Failure',
                'at start',
                'Probability'),
     cex = c(1,1.15,1,1,1,1))

text(x = c(seq(50,250,100),325),
     y = rep(20,4),
     labels = c(expression(pi[1]),
                expression(pi[2]),
                expression(pi[3]),
                expression(pi[4])),
     cex = 1.5)

text(x = seq(50,250,100),
     y = rep(108,3),
     labels = c('Year 1','Year 2','Year 3'),
     cex = rep(1.15,3))

text(x = c(150,320,320),
     y = c(rep(140,2),130),
     labels = c('Cracked tubes','Uncracked','tubes'),
     cex = rep(1,3))

text(x = c(seq(50,250,100),325),
     y = rep(77,4),
     labels = c('1','2','2','95'),
     cex = rep(1.5,4))"),

        actionButton("evalfig31", "Evaluate"))),

column(width = 7, plotOutput("plotfig31"))),

fluidRow(column(width = 12,
      uiOutput('fig31text', class = 'shiny-text-output', width = '100%')))),

tabPanel("Figure 3.2",
fluidRow(column(width = 5,
    sidebarPanel(width = '100%',
      shinyAce::aceEditor(fontSize = 16,
                          wordWrap = T,
                          outputId = "fig32plot",
                          mode = "r",
                          theme = "github",
                          height = "450px",
                          value =
"par(family = 'serif', font = 2, cex = 1.15)

library(package = SMRD)

HE.ld <-
frame.to.ld(subset(SMRD::heatexchanger, plant == 'Plant1'),
            response.column = c(1,2),
            censor.column = 3,
            case.weight.column = 4,
            time.units = 'Years')

plot(HE.ld,
     band.type = 'Pointwise',
     ylim = c(0,.2),
     xlim = c(0,3))"),

        actionButton("evalfig32", "Evaluate"))),

column(width = 7, plotOutput("plotfig32"))),

fluidRow(column(width = 12,
      uiOutput('fig32text', class = 'shiny-text-output', width = '100%'))))))