inst/apps/navbarPage_app/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)

  rv <- reactiveValues( )

  observe({
    rv$mu.n <- input$mu.n
    rv$sig.n <- input$sig.n
    rv$t  <- signif(digits = 4,
                    seq(min(input$range.n),
                        max(input$range.n),
                        length = 500))
    rv$C  <- pnorm(rv$t, rv$mu.n, rv$sig.n)
    rv$P  <- dnorm(rv$t, rv$mu.n, rv$sig.n)
    rv$R  <- 1-rv$C
    rv$h  <- exp(log(rv$P)-log(rv$R))
    rv$H  <- -1*log(1-rv$C)
    rv$Q  <- qnorm(p, rv$mu.n, rv$sig.n)
    rv$df <- data.frame(Time = rv$t,
                        PROB = p,
                        CDF = rv$C,
                        PDF = rv$P,
                        REL = rv$R,
                        haz = rv$h,
                        HAZ = rv$H,
                        QUANT = rv$Q)
  })

  output$norC <- renderMetricsgraphics({
    mjs_plot(rv$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(rv$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(rv$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(rv$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(rv$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(rv$df, x = PROB, y = QUANT, decimals = 4) %>%
      mjs_line(area = TRUE) %>%
      mjs_labs(x_label = 'Probability', y_label = HTML('q(p)')) %>%
      mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
  })


output$norfunc  <- renderUI({

  file = 'nor-func.Rmd'
  withMathJax(HTML(markdown::markdownToHTML(knitr::knit(file))))
})

output$norprops <- renderUI({

  file = 'nor-props.Rmd'
  withMathJax(HTML(markdown::markdownToHTML(knitr::knit(file))))})


output$mapplot <- renderPlot({

  map_data$value = map_data[, input$select]

  state_choropleth(map_data,
                   title = 'stuff',
                   num_colors = input$slider)
})

output$mapdata <- DT::renderDataTable({

  DT::datatable(map_data)


})
}