In brentscott93/lasertrapr: Automating the Analysis of Laser Trap Data

library(flexdashboard)
library(lasertrapr)
library(ggplot2)
library(dplyr)
library(cowplot)
library(DT)

Summary Table

Row

Summary Table

d <- params$rv$summary_data
d$conditions <- factor(d$conditions, levels = params$factor_order) 
d %>% 
  dplyr::mutate(across(where(is.numeric), round, digits = 2)) %>% 
     dplyr::select( "Conditions" = conditions,
                    "Step Size (nm)" = displacement_avg,
                    "SE Step" = displacement_se,
                    "Force (pN)" = force_avg,
                    "SE Force" = force_se, 
                    "Time On (ms)" = time_on_avg,
                    "SE Ton" = time_on_se, 
                    'Median Time-on' = time_on_median,
                    "Time Off (ms)" = time_off_avg,
                    "SE Toff" = time_off_se, 
                    "No. Events" = num_events,
                    "Minutes Collected" = minutes ) %>% 
    dplyr::arrange(Conditions) %>% 
    DT::datatable(
              extensions = 'FixedColumns',
              options = list(
                dom = 't',
                scrollX = TRUE,
                fixedColumns = list(leftColumns = 2)
              )
    )

Distributions

Row {.tabset .tabset-fade}

Step Size

params$rv$ggstep

Force

 params$rv$ggforce

Time On

params$rv$ggton

Time Off

 params$rv$ggoff

brentscott93/lasertrapr documentation built on March 26, 2024, 4:26 p.m.