Alternative to ifelse with radiobutton in R Shiny Dashboard - r

Question

I am creating a dashboard that displays a graph based on the selected demographic combination. Since there are 3 main categories, one method that works is to use ifelse. cars is just a random plot used to demonstrate.
cars <- c(1,3,6,4,9)
header <- dashboardHeader(title = "Financial Independence")
sidebar <- dashboardSidebar(
sidebarMenu(
id = "tabs",
menuItem("Financial Independence Status", tabName = "finstat"),
menuItem("Expense Type", tabName = "expt")
),
actionButton('switchtab', 'Switch tab')
)
body <- dashboardBody(
tabItems(
tabItem(tabName = "finstat",
h2("Amount of Financial Help Received From Parents in the Last 12 Months")
, "Created by Daniel Haw Rong Chen & Althea Laverne Muth"
, fluidRow(
column(width = 2, height = 3, wellPanel(radioButtons("finstat_all", "All Demographics",
c("Yes", "No")))),
column(width = 2, height = 3, wellPanel(radioButtons("finstat_sex", "Sex",
c("Male", "Female")))),
column(width = 3, height = 3, wellPanel(radioButtons("finstat_educ", "Education Level",
c("College Graduate+", "Some College"
, "H.S. Graduate or Less")))),
column(width = 3, height = 3, wellPanel(radioButtons("finstat_reth", "Race/Ethnicity",
c("White non-Hispanic", "Black non-Hispanic"
, "Hispanic", "Other")))),
),
mainPanel(
plotOutput("plot1")
)
),
tabItem(tabName = "expt",
h2("Types of Expense Financial Help Is Spent On")
, "Created by Daniel Haw Rong Chen & Althea Laverne Muth"
, fluidRow(
column(width = 2, style = "height:200px", wellPanel(radioButtons("expt_all", "All Demographics",
c("Yes", "No")))),
column(width = 2, style = "height:200px", wellPanel(radioButtons("expt_sex", "Sex",
c("Male", "Female")))),
column(width = 3, style = "height:200px", wellPanel(radioButtons("expt_educ", "Education Level",
c("College Graduate+", "Some College"
, "H.S. Graduate or Less")))),
column(width = 3, style = "height:200px", wellPanel(radioButtons("expt_reth", "Race/Ethnicity",
c("White non-Hispanic", "Black non-Hispanic"
, "Hispanic", "Other")))),
),
mainPanel(
plotOutput("plot2")
)
)
)
)
ui <- dashboardPage(
header,
sidebar,
body
)
server <- function(input, output, session) {
observeEvent(input$switchtab, {
newtab <- switch(input$tabs,
"finstat" = "expt",
"expt" = "finstat"
)
updateTabItems(session, "tabs", newtab)
})
tabItems(
tabItem(tabName = "finstat",
output$plot1 <- renderPlot({
if (input$finstat_sex == "Male") {
if (input$finstat_educ == "College Graduate+") {
if (input$finstat_reth == "White non-Hispanic") {
plot(cars)
}
}
}
})
),
tabItem(tabName = "expt",
output$plot2 <- renderPlot({
if(input$expt_all == "Yes"){
ggplot(data = help_type_all, aes(x = type, y = perc, fill = ans, label = round(perc, 4)*100)) +
geom_col(position = "stack") +
geom_text(size = 3, color = "white", position = position_stack(vjust = 0.5)) +
labs(x = "Expense Type", y = "Proportion"
, title = "Type of Expense the Financial Help Is Related To") +
scale_x_discrete(labels=c("Education"
, "Household"
, "Med"
, "Rent or\nMortgage")) +
guides(fill = guide_legend(title = "Response")) + # to rename legend
scale_fill_manual(labels = c("Related", "Unrelated"), values = c("deepskyblue3", "darksalmon")) +
scale_y_continuous(labels = scales::percent) +
theme(legend.title = element_text(size = 10, face = "bold")
, legend.title.align = 0.5
, plot.title = element_text(face = "bold", hjust = 0.5)
, axis.title.x = element_text(face = "bold", hjust = 0.5)
, axis.title.y = element_text(face = "bold", hjust = 0.5))
}
if (input$expt_sex == "Male"
& input$expt_educ == "College Graduate+"
& input$expt_reth == "White non-Hispanic") {
ggplot(data = help_type_m_c_w, aes(x = type, y = perc, fill = ans, label = round(perc, 4)*100)) +
geom_col(position = "stack") +
geom_text(size = 3, color = "white", position = position_stack(vjust = 0.5)) +
labs(x = "Expense Type", y = "Proportion"
, title = "Type of Expense the Financial Help Is Related To") +
scale_x_discrete(labels=c("Education"
, "Household"
, "Med"
, "Rent or\nMortgage")) +
guides(fill = guide_legend(title = "Response")) + # to rename legend
scale_fill_manual(labels = c("Related", "Unrelated"), values = c("deepskyblue3", "darksalmon")) +
scale_y_continuous(labels = scales::percent) +
theme(legend.title = element_text(size = 10, face = "bold")
, legend.title.align = 0.5
, plot.title = element_text(face = "bold", hjust = 0.5)
, axis.title.x = element_text(face = "bold", hjust = 0.5)
, axis.title.y = element_text(face = "bold", hjust = 0.5))
}
})
)
)
}
shinyApp(ui, server)
The problem, however, is that I need to create a graph for each possible combination, so using ifelse will create a code that is overwhelmingly large.
Are there good alternatives to ifelse in this case?
The specific section that I need help with is the following:
tabItem(tabName = "finstat",
output$plot1 <- renderPlot({
if (input$finstat_sex == "Male") {
if (input$finstat_educ == "College Graduate+") {
if (input$finstat_reth == "White non-Hispanic") {
plot(cars)
}
}
}
})
)
How the dashboard look like for more context