Skip to content

add chart event listeners and refactor widgets #706

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.

Sign up for GitHub

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

Merged
jwildfire merged 2 commits into from
Mar 8, 2023
Merged

add chart event listeners and refactor widgets #706

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
0ba8d12
add chart event listeners and refactor widgets
samussiah Feb 24, 2023
f5094e3
document()
samussiah Feb 24, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion DESCRIPTION
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ Depends: R (>= 4.0)
License: MIT + file LICENSE
Encoding: UTF-8
LazyData: true
RoxygenNote: 7.2.1
RoxygenNote: 7.2.2
Suggests:
ggplot2 (>= 3.3.0),
knitr (>= 1.34),
Expand Down
13 changes: 6 additions & 7 deletions R/mod_profileTab.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,13 +35,11 @@ profileTabUI <- function(id){
#'
#' @export

profileTab <- function(input, output, session, params){
observe({
#print(names(params()$data))
#print(names(params()$settings))
})

id<-safetyProfile::profile_server("profile", params)
profileTab <- function(input, output, session, params) {
id <- safetyProfile::profile_server(
"profile",
params
)

observe({
shinyjs::html(
Expand All @@ -56,5 +54,6 @@ profileTab <- function(input, output, session, params){
condition = !is.null(id())
)
})

return(id)
}
17 changes: 17 additions & 0 deletions R/mod_safetyGraphicsServer.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -46,6 +46,23 @@ safetyGraphicsServer <- function(input, output, session, meta, mapping, domainDa
})
)

observeEvent(input$participants_selected, {
cli::cli_alert_info('Selected participant ID: {input$participants_selected}')

# Navigate to patient profile.
#updateNavbarPage(
# session,
# "safetyGraphicsApp",
# selected = 'profile'
#)

# Update selected participant.
updateSelectizeInput(
session,
inputId = 'profile-profile-idSelect',
Copy link
Contributor Author

@samussiah samussiah Feb 24, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

@jwildfire, @MayaGans - how flimsy is this?

Copy link
Contributor

@jwildfire jwildfire Mar 8, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

A little flimsy maybe, but I feel ok about it for now ...

selected = input$participants_selected
)
})

#--- Chart Tab ---#
# Note: Adds subtabs to chart menu - this initializes initializes chart UIs
Expand Down
7 changes: 6 additions & 1 deletion R/mod_safetyGraphicsUI.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,12 @@ safetyGraphicsUI <- function(id, meta, domainData, mapping, standards){
tabPanel("Home", icon=icon("home"),homeTabUI(ns("home"))),
tabPanel("Mapping", icon=icon("map"), mappingTabUI(ns("mapping"), meta, domainData, mapping, standards)),
tabPanel("Filtering", icon=icon("filter"), filterTabUI(ns("filter"))),
tabPanel("Profile", icon=icon("person"), profileTabUI(ns("profile"))),
tabPanel(
"Profile",
icon=icon("person"),
value='profile',
profileTabUI(ns("profile"))
),
navbarMenu('Charts', icon=icon("chart-bar")),
tabPanel('',icon=icon("cog"), settingsTabUI(ns("settings")))
),
Expand Down
4 changes: 2 additions & 2 deletions man/profileTab.Rd
View file
Open in desktop

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