diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/.Rhistory | 0 | ||||
| -rw-r--r-- | scripts/char_clinical_studies_table.R | 18 | ||||
| -rw-r--r-- | scripts/demographics.R | 3 |
3 files changed, 21 insertions, 0 deletions
diff --git a/scripts/.Rhistory b/scripts/.Rhistory new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/scripts/.Rhistory diff --git a/scripts/char_clinical_studies_table.R b/scripts/char_clinical_studies_table.R new file mode 100644 index 0000000..8b51949 --- /dev/null +++ b/scripts/char_clinical_studies_table.R @@ -0,0 +1,18 @@ +library(tidyverse) +library(knitr) + +tbl <- read_csv("../csv/char_clinical_studies.csv") +tbl <- tbl %>% + select(-1, -3, -8, -9) %>% + mutate(across(everything(), function(x) { + rep <- str_replace_all(x, "â\u0080\u00934", "-") + rep <- str_replace_all(rep, "â\u0080\u0093", "-") + rep <- str_replace_all(rep, "â\u0080\u0089", " ") + rep <- str_replace_all(rep, "â\u0089¥", ">=") + return(rep) + })) %>% + kable(format = "latex", booktabs = TRUE) + +clip <- pipe("xclip -selection clipboard", "w") +write(tbl, file=clip) +close(clip) diff --git a/scripts/demographics.R b/scripts/demographics.R new file mode 100644 index 0000000..5cc2fca --- /dev/null +++ b/scripts/demographics.R @@ -0,0 +1,3 @@ +library(ggplot2) + + |