inst/apps/use_reactive/server.R

In AFIT-R/OPER782: Example Functions for OPER 782

server = function(input, output, session) {

p <- signif(seq(0, 1, length = 500), digits = 4) 
mu.n  <- reactive({ input$mu.n  })
sig.n <- reactive({ input$sig.n })
t <- reactive({ signif(digits = 4,
                       seq(min(input$range.n), 
                           max(input$range.n), 
                           length = 500))      })

C <- reactive({ pnorm(t(), mu.n(), sig.n())})
P <- reactive({ dnorm(t(), mu.n(), sig.n())})
R <- reactive({ 1-C()})
h <- reactive({ exp(log(P())-log(R()))})
H <- reactive({ -1*log(1-pnorm(t(), mu.n(), sig.n()))})
Q <- reactive({ qnorm(p, mu.n(), sig.n())})
df <- reactive({data.frame(Time = t(),
                           PROB = p, 
                           CDF = C(),
                           PDF = P(),
                           REL = R(),
                           haz = h(),
                           HAZ = H(), 
                           QUANT = Q())})

output$norC <- renderMetricsgraphics({
  mjs_plot(df(), x = Time, y = CDF, decimals = 4, top = 0) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Time (t)', y_label = 'F(t)')%>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
}) 
  
output$norP <- renderMetricsgraphics({
  mjs_plot(df(), x = Time, y = PDF, decimals = 4) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Time (t)', y_label = 'f(t)') %>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
  
output$norR <- renderMetricsgraphics({
  mjs_plot(df(), x = Time, y = REL, decimals = 4) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Time (t)', y_label = 'S(t)') %>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
  
output$norh <- renderMetricsgraphics({
  mjs_plot(df(), x = Time, y = haz, decimals = 4) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Time (t)', y_label = 'h(t)') %>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
  
output$norH <- renderMetricsgraphics({
  mjs_plot(df(), x = Time, y = HAZ, decimals = 4) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Time (t)', y_label = 'H(t)') %>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
  
output$norQ <- renderMetricsgraphics({
  mjs_plot(df(), x = PROB, y = QUANT, decimals = 4) %>%
  mjs_line(area = TRUE) %>%
  mjs_labs(x_label = 'Probability', y_label = 'q(t)') %>%
  mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
}