-
-
Notifications
You must be signed in to change notification settings - Fork 2
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
26 new chunks@main #172
26 new chunks@main #172
Conversation
Co-authored-by: cicdguy <[email protected]>
|
||
teal.code::chunks_reset(envir = environment()) | ||
|
||
ANL <- data[[dataname]]() # nolint | ||
validate(need(nlevels(ANL[[input$arm_var]]) > 1, "Arm needs to have at least 2 levels")) |
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.
nlevels works only with factors, which means:
- if
ANL[[arm_var]]
is not a factor the validation message will be printed. - (1) means that variable named
arm_var
have to be a factor. There is not other possibility - This simplifies our problem with
c(input$arm_trt, input$arm_ref) %in% ANL_UNFILTERED[[input$arm_var]])
because we can define choices in the line 252 aschoices <- levels(ANL[[arm_var]])
@@ -242,14 +242,14 @@ srv_g_ae_oview <- function(id, | |||
}) | |||
|
|||
observeEvent(input$arm_var, { | |||
ANL <- datasets$get_data(dataname, filtered = FALSE) # nolint |
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.
to reviewer:
filtered = FALSE
was used only to make "arm_ref"
selectInput to have all variable choices (including filtered). We assume that variable is a factor - then levels are taken from the factor (
Code Coverage Summary
Results for commit: a52e172 Minimum allowed coverage is ♻️ This comment has been updated with latest results |
Co-authored-by: Mahmoud Hallal <[email protected]>
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.
See comments inline but it's looking good.
pre_output = a$pre_output, | ||
post_output = a$post_output | ||
) | ||
} | ||
|
||
srv_g_waterfall <- function(id, | ||
datasets, | ||
data, |
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.
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.
same on main - i made an issue
Fix docs grammar Co-authored-by: Mahmoud Hallal <[email protected]> Co-authored-by: Nikolas Burkoff <[email protected]>
closes #145 #141