analysis/scripts/tables/rtqpcr_primers.R

In MahShaaban/aacna: Analysis Compendium of the Autophagy and AMPK Co-expression

# load libraries
library(tidyverse)
library(readxl)
library(xtable)

# global variable
tables_dir <- 'manuscript/tables/'

# load data

url = 'https://ndownloader.figshare.com/files/11929469'

if(!file.exists('data/rtqpcr.xlsx')) {
  download.file(url, destfile = 'data/rtqpcr.xlsx')
}

primers <- read_excel('data/rtqpcr.xlsx', sheet = 3)

# generate tables
primers %>%
  xtable(caption = 'RT-qPCR primer sequences.',
         align = 'clll',
         label = 'tab:rtqpcr_primers') %>%
  print(include.rownames = FALSE,
        booktabs = TRUE,
        caption.placement = 'top',
        table.placement = 'H',
        file = paste(tables_dir, 'rtqpcr_primers.tex', sep = '/'))