if (interactive()) {
# After completing BID stages
notice_result <- bid_notice(
problem = "Users struggle with complex data",
theory = "Cognitive Load Theory"
)
# Get all component suggestions
bid_suggest_components(notice_result)
# Get only bslib suggestions
bid_suggest_components(notice_result, package = "bslib")
# Get shiny-specific suggestions
bid_suggest_components(notice_result, package = "shiny")
}
Run the code above in your browser using DataLab