Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

195 new table table 36 #208

Merged
merged 13 commits into from
Mar 11, 2024
Prev Previous commit
Next Next commit
Remove scda from table 22
  • Loading branch information
mattkorb committed Feb 9, 2024
commit 5f79df4d3a9ca328dee8f69f9694488657bd39a9
4 changes: 2 additions & 2 deletions R/fda-table_22.R
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
#' @examples
#' library(dplyr)
#'
#' adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
#' adsl <- random.cdisc.data::cadsl %>%
#' mutate(AGEGR1 = as.factor(case_when(
#' AGE >= 17 & AGE < 65 ~ ">=17 to <65",
#' AGE >= 65 ~ ">=65",
Expand All @@ -29,7 +29,7 @@
#' AGE = "Age, years"
#' )
#'
#' adae <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adae")
#' adae <- random.cdisc.data::cadae
#'
#' df <- left_join(adsl, adae, by = intersect(names(adsl), names(adae)))
#'
Expand Down
4 changes: 2 additions & 2 deletions man/make_table_22.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

5 changes: 2 additions & 3 deletions quarto/table-templates/template-table_22.qmd
Original file line number Diff line number Diff line change
Expand Up @@ -14,10 +14,9 @@ format: html
```{r tbl, message=FALSE, warning=FALSE}
# Load Libraries & Data
library(dplyr)
library(scda)
library(falcon)

adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
adsl <- random.cdisc.data::cadsl %>%
mutate(AGEGR1 = as.factor(case_when(
AGE >= 17 & AGE < 65 ~ ">=17 to <65",
AGE >= 65 ~ ">=65",
Expand All @@ -28,7 +27,7 @@ adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
AGE = "Age, years"
)

adae <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adae")
adae <- random.cdisc.data::cadae

df <- left_join(adsl, adae, by = intersect(names(adsl), names(adae)))

Expand Down
4 changes: 2 additions & 2 deletions tests/testthat/test-fda-table_22.R
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
adsl <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adsl") %>%
adsl <- random.cdisc.data::cadsl %>%
mutate(AGEGR1 = as.factor(case_when(
AGE >= 17 & AGE < 65 ~ ">=17 to <65",
AGE >= 65 ~ ">=65",
Expand All @@ -10,7 +10,7 @@
AGE = "Age, years"
)

adae <- scda::synthetic_cdisc_dataset("rcd_2022_10_13", "adae")
adae <- random.cdisc.data::cadae

df <- left_join(adsl, adae, by = intersect(names(adsl), names(adae)))

Expand Down Expand Up @@ -41,13 +41,13 @@
lbl_overall = NULL,
prune_0 = TRUE,
annotations = list(
title = "Table 22. Overview of Adverse Events1 by Demographic Subgroup, Safety Population, Pooled Analysis (or Trial X)",

Check warning on line 44 in tests/testthat/test-fda-table_22.R

View workflow job for this annotation

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=tests/testthat/test-fda-table_22.R,line=44,col=121,[line_length_linter] Lines should not be more than 120 characters. This line is 127 characters.
main_footer = c(
"Source: [include Applicant source, datasets and/or software tools used].",
"(1) Treatment-emergent adverse event defined as [definition]. MedDRA version X."
),
prov_footer = c(
"Abbreviations: MedDRA, Medical Dictionary for Regulatory Activities.; N, number of patients in treatment arm; n, number of patients with adverse event;",

Check warning on line 50 in tests/testthat/test-fda-table_22.R

View workflow job for this annotation

GitHub Actions / SuperLinter 🦸‍♀️ / Lint R code 🧶

file=tests/testthat/test-fda-table_22.R,line=50,col=121,[line_length_linter] Lines should not be more than 120 characters. This line is 162 characters.
"Ns, total number of patients for each specific subgroup"
)
)
Expand Down
Loading