getwd()
q()
q()
library(dplyr)
library(lubridate)
library(data.table)
library(magrittr)
library(lubridate)
library(stringr)
library(purrr) # For map_df function
library(brapi)
setwd("/srv/shiny-server/btract/btract")
data_dir <- "/home/mwk66/BTRACT/daily/data"
dataset_type = "weaning2"
file_pattern = "Weaning2"
if (is.null(file_pattern)) {
    file_pattern <- sprintf("*%s*.csv$", dataset_type)
  }
  # Find matching files
  file_paths <- list.files(
    path = data_dir,
    pattern = file_pattern,
    full.names = TRUE,
    ignore.case = TRUE
  )
data.table::fread(file_paths[1])[1:2,]
data.table::fread(file_paths[2])[1:2,]
data.table::fread(file_paths[3])[1:2,]
data.table::fread(file_paths[4])[1:2,]
data.table::fread(file_paths[5])[1:2,]
file_paths
q()
install.packages("reactable")
renv::snapshot()
remotes::install_github("dreamRs/shinypop")
renv::snapshot()
q()
