-
-
Notifications
You must be signed in to change notification settings - Fork 1
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
update aet05
and aet05_all
#678
Conversation
Signed-off-by: Liming <[email protected]>
🧪 Test coverage: 96.87% Code Coverage Summary
Diff against main
Results for commit: f334b72 Minimum allowed coverage is ♻️ This comment has been updated with latest results |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
data.R also need to be updated
could you also follow https://github.com/insightsengineering/coredev-tasks/issues/478 to turn off partial matching (I mean, no only in your side; this is not reflect in your code) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
looks good, thank you
R/aet05.R
Outdated
filter(grepl("AETTE", .data$PARAMCD)) %>% | ||
aet05_pre <- function(adam_db, dataset = "adsaftte", ...) { | ||
adam_db[[dataset]] <- adam_db[[dataset]] %>% | ||
filter(grepl("(AE|CQ|SMQ)TTE", .data$PARAMCD)) %>% | ||
mutate( | ||
n_events = as.integer(.data$CNSR == 0) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
if possible let's use upper case for all variables
R/aet05_all.R
Outdated
filter(.data$PARAMCD == "AEREPTTE") %>% | ||
select(all_of(c("USUBJID", "AVAL"))) | ||
|
||
adam_db$adaette <- adam_db$adaette %>% | ||
adam_db[[dataset]] <- adam_db[[dataset]] %>% | ||
filter(grepl("TOT", .data$PARAMCD)) %>% | ||
mutate( | ||
n_events = as.integer(.data$AVAL) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
mutate(, AVAL = NULL) if you don't need aval
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
or select(n_events = AVAL, USUBJID)
R/aet05.R
Outdated
@@ -43,11 +51,11 @@ aet05_main <- function(adam_db, | |||
lbl_overall = lbl_overall, | |||
param_label = "PARAM", | |||
vars = "AVAL", | |||
n_events = "n_events", | |||
N_EVENTS = "N_EVENTS", |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
argument name should not be upper-case
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
looks good thank you!
Signed-off-by: Liming <[email protected]>
Close #665
aet05
filter: only include "*AETTE", "*CQTTE", and "*SMQTTE".aet05
andaet05_all
) to let the dataset name be exposed to users.syn_data
.data.R
.