In LEEF-UZH/LEEF.analysis: Access Functions, Tests and Basic Analysis of the RRD Data from the LEEF Project

knitr::opts_chunk$set(echo = TRUE)
library("LEEF.analysis")
if (!exists("db")) {
  db <- "~/Desktop/9.backend/LEEF.RRD.sqlite"
}

options(shiny.maxRequestSize=2048*1024^2)

To learn more, see Interactive Documents.

Database r db is used

Per Measurement

shiny::inputPanel(
  # shiny::fileInput(
  #   "db", 
  #   label = "RRD Database",
  #    buttonLabel = "Select",
  #   multiple = FALSE
  # ),
  shiny::selectInput(
    "measurement", 
    label = "Measurement:",
    choices = c(
      "bemovi_mag_16", "bemovi_mag_25", "bemovi_mag_25_cropped", 
      "flowcam", 
      "flowcytometer", 
      "manualcount",
      "all"
    ), 
    selected = 1
  ),
  shiny::selectInput(
    "measurement", 
    label = "Measurement:",
    choices = c(
      "bemovi_mag_16", "bemovi_mag_25", "bemovi_mag_25_cropped", 
      "flowcam", 
      "flowcytometer", 
      "manualcount",
      "all"
    ), 
    selected = 1
  ),
  shiny::sliderInput(
    "bottle", 
    label = "Bottle (0 = all Bottles):",
    min = 0, 
    max = 32, 
    value = 1, 
    step = 1
  )
)

shiny::renderPlot(
  {
    # db <- input$db$datapath
    if (length(db) == 1) {
      bottle <- input$bottle
      if (bottle == 0) {
        bottle = NULL
      } else {
        bottle <- sprintf("b_%02d", bottle)
      }
      LEEF.analysis::plot_density_species_per_bottle_per_timestamp(
        db = db, # input$db$datapath[[1]], 
        measurement = input$measurement,
        bottle = bottle
      )
    }
  },
  height = 1600
)

LEEF-UZH/LEEF.analysis documentation built on Feb. 8, 2025, 11:18 a.m.