inst/apps/rcapture/ui-loglinear.R

In shinyrecap: Shiny User Interface for Multiple Source Capture Recapture Models

renderLogLinearSidebar <- function() {
  sidebarPanel(
    #br(),
    #uiOutput("model_select"),
    br(),
    br(),
    radioButtons(
      "OutputSelect",
      "Select Output (various assumptions):",
      choices = c(
        "M0 (No variation in capture probabilities)" = "M0",
        "Mt (Capture probability vary by time)" = "Mt",
        "Mh (Individuals have a heterogeneous prob. of capture)" = "Mh",
        "Mth (Both Mt and Mh)" = "Mth"
      ),
      selected = 'M0'
    ),
    conditionalPanel(
      "input.OutputSelect == 'Mh' || input.OutputSelect == 'Mth'",
      radioButtons(
        "Hetero",
        "Heterogeneity Type:",
        choices = c(
          "Lower Bound" = "Chao",
          "Poisson" = "Poisson",
          "Darroch" = "Darroch",
          "Gamma" = "Gamma",
          "Normal" = "Normal"
        ),
        selected = 'Chao'
      )
    ),
    div(style = "height:150px;")
  )
}

renderLogLinear <- function() {
  tabPanel("Log Linear Models",
    br(),
    h3("Log-linear Abundance Analysis"),
    tabsetPanel(
      tabPanel(
        "Model Comparison",
        h4("Population Size Estimates by Model:"),
        tableOutput("Abund"),
        p("M0 : All captures have the same probability and individuals are uniform."),
        p("Mt : Captures may have different probabilities and individuals are uniform."),
        p("Mh : All captures have the same probability and individuals may be heterogeneous."),
        p("Mth : Captures may have different probabilities and individuals may be heterogeneous.")
      ),
      tabPanel("Model Selection",
        sidebarLayout(
          renderLogLinearSidebar(),
          mainPanel(
            verbatimTextOutput("CI95"),
            verbatimTextOutput("tot1"),
            h4("95% Confidence Interval plots"),
            br(),
            plotOutput("CIPlot")
          )
        )
      ),
      tabPanel(
        "Desciptives",
        verbatimTextOutput("FreqStat"),
        plotOutput("HetPlot"),
        tags$hr()
      )
    )
  )
}