From 5d96c70cbfefc199298ffe8bae489d02dff37bc2 Mon Sep 17 00:00:00 2001 From: "alex.hill@gmail.com" Date: Wed, 20 Nov 2024 13:04:21 +0000 Subject: [PATCH] add data to plot --- R/inspect-model.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/R/inspect-model.R b/R/inspect-model.R index 1b2a182..75cea53 100644 --- a/R/inspect-model.R +++ b/R/inspect-model.R @@ -97,8 +97,9 @@ inspect_model <- function(mod, private) { }) output$prior_predicted <- plotly::renderPlotly({ plotly::style(plotly::ggplotly(plot(prior(), - upper_censoring_limit = private$stan_input_data$upper_censoring_limit, - lower_censoring_limit = private$stan_input_data$lower_censoring_limit)), textposition = "right") + data = private$data, + upper_censoring_limit = private$stan_input_data$upper_censoring_limit, + lower_censoring_limit = private$stan_input_data$lower_censoring_limit)), textposition = "right") }) # model inputs @@ -147,7 +148,7 @@ inspect_model <- function(mod, private) { output$data <- plotly::renderPlotly({ if (nrow(data()) > 0) { - gp <- plotly::style(plotly::ggplotly(plot_inputs()), textposition="right") + gp <- plotly::style(plotly::ggplotly(plot_inputs()), textposition = "right") if (selected_covariate() != "None") { return(facet_strip_bigger(gp, 30)) } else {