From bf2c0c1a90d280a75b3ee2e17e14876de3e9fe1a Mon Sep 17 00:00:00 2001
From: dsrobertson <38322298+dsrobertson@users.noreply.github.com>
Date: Mon, 2 Oct 2023 17:26:48 +0100
Subject: [PATCH] Update app.R
Editing column headers for table of design operating characteristics in the Shiny app
---
inst/shiny/OptGS/app.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/inst/shiny/OptGS/app.R b/inst/shiny/OptGS/app.R
index a2d288e..c65ff71 100644
--- a/inst/shiny/OptGS/app.R
+++ b/inst/shiny/OptGS/app.R
@@ -869,7 +869,7 @@ server <- function(input, output, session) {
seq_J <- 1:input$design_J
colnames(design$opchar) <-
c("τ",
- paste0("", c("P", "ESS", "SDSS", "MSS"), "(τ)"),
+ paste0("", c("P", "ESS", "SDSS", "MeSS", "MoSS"), "(τ)"),
paste0("E", seq_J, "(τ)"),
paste0("F", seq_J, "(τ)"),
paste0("S", seq_J, "(τ)"),