Skip to content
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

rename plot_selector #342

Merged
merged 1 commit into from
Nov 13, 2023
Merged

rename plot_selector #342

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
12 changes: 6 additions & 6 deletions panels/F3_ModelFitting/2_modelfitting-panel-server.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1094,7 +1094,7 @@ observe({

# side bar for model plots
output$model_plots = renderUI({
navlistPanel(id="plot_selector",
navlistPanel(id="visualisze_plot_selector",
"Select Plot Type",
tabPanel("Graphical Diagnostics"),
tabPanel("Normality Checks"),
Expand All @@ -1106,29 +1106,29 @@ output$model_plots = renderUI({
# UI for the main window when the plot tab is selected
output$plots.main = renderUI({
input$model.select
input$plot_selector
input$visualisze_plot_selector
isolate({
if(is.null(input$model.select)||
input$model.select%in%""){
h2("Please fit a model first")
}else{
if(!any(modelValues$independent.vars[[input$model.select]]%in%
get.categorical.column.names(get.data.set()))&&
input$plot_selector%in%'Factor level comparison'){
input$visualisze_plot_selector%in%'Factor level comparison'){
h2("No factor variables are fit in this model.")
}else{
ch1 = modelValues$independent.vars[[input$model.select]][which(modelValues$independent.vars[[input$model.select]]%in%
get.categorical.column.names(get.data.set()))]
ch2 = get.numeric.column.names(modelValues$models[[input$model.select]]$model)
ch2 = ch2[which(ch2%in%modelValues$independent.vars[[input$model.select]])]
list(conditionalPanel("input.plot_selector=='Factor level comparison'",
list(conditionalPanel("input.visualisze_plot_selector=='Factor level comparison'",
fixedRow(column(3,selectInput("factor.comp.select",
label="Select Factor to plot",
choices=ch1))),
plotOutput("factor.comparison.plot"),br(),
h4("Comparison matrix of selected factor"),
verbatimTextOutput("factor_comparison_matrix")),
conditionalPanel("input.plot_selector=='Graphical Diagnostics'",
conditionalPanel("input.visualisze_plot_selector=='Graphical Diagnostics'",
tabsetPanel(id="navlist_basic_plot",
tabPanel("Basic Plots",
selectInput("plotlm6.selected",
Expand All @@ -1150,7 +1150,7 @@ output$plots.main = renderUI({
tabPanel("Scatter Plot Matrix",
plotOutput("scatter.plot.matrix")),
type="pills")),
conditionalPanel("input.plot_selector=='Normality Checks'",
conditionalPanel("input.visualisze_plot_selector=='Normality Checks'",
tabsetPanel(id="navlist_basic_plot",
tabPanel("Normal QQ-Plot",
plotOutput("normal.qq.plot")),
Expand Down