1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
library(tidyverse)
library(knitr)
library(dlookr)
data <- read_csv("../csv/visit_multiple_21.csv")
tbl <- data %>%
select(
visit_id,
year = visit_year,
day = visit_day,
type = visit_type_hai,
age = age_round,
cmv = cmv_status,
ebv = ebv_status,
bmi,
vaccine,
geo_mean,
d_geo_mean,
response = vaccine_resp,
assay_data_rows = total_data
) %>%
kable(format = "latex", booktabs = TRUE)
clip <- pipe("xclip -selection clipboard", "w")
write(tbl, file = clip)
close(clip)
|
