{
flag <- create_connect_user_feature_flag(c("user1"))
# Returns TRUE if the session$user matches the specified users
mock_session <- shiny::MockShinySession$new()
mock_session$user <- "user1"
shiny::withReactiveDomain(
domain = mock_session,
expr = is_enabled(flag)
)
# Returns FALSE if the session$user does not match the specified users
mock_session <- shiny::MockShinySession$new()
mock_session$user <- "user2"
shiny::withReactiveDomain(
domain = mock_session,
expr = is_enabled(flag)
)
}
Run the code above in your browser using DataLab