layout of explore & optimize

app.R

@@ -1,58 +0,0 @@
-shiny::devmode(TRUE)
-
-library(shiny)
-library(bslib)
-theme <- bs_theme(
-  primary = "#7faeff"  # blue-light
-)
-
-source("R/Global.R")
-source("home_page.R")
-source("explore_page.R")
-
-
-    
-    
-inspect_page <- tagList(
-  tags$div(
-    "Hello World – Page C")
-)
-
-optimize_page <- tagList(
-  tags$div(
-    "Hello World – Page D")
-)
-
-# --- UI ---
-
-ui <- page_navbar(
-  title = tags$img(
-    "Plateflow",
-    src = "logo.svg",
-    height = "35px",
-    alt = "InnerAnalyticsLogo"
-  ),
-  header = tags$head(
-    tags$link(rel = "stylesheet", href = "styles.css")
-  ),
-  theme = theme,
-
-  nav_panel("Home", home_page),
-  nav_panel("EXPLORE", explore_page),
-  nav_panel("INSPECT", inspect_page),
-  nav_panel("OPTIMIZE", optimize_page)
-)
-
-# --- Server ---
-
-server <- function(input, output, session) {
-  # input$page holds the currently active tab name if you ever need it
-  # e.g. observeEvent(input$page, { cat("Switched to:", input$page, "\n") })
-  output$sessioninfo <- renderPrint({ sessionInfo()})
-
-  
-}
-
-
-
-shinyApp(ui = ui, server = server)

dev/explore_page.R

@@ -1,11 +1,78 @@
 explore_4pl <- tagList(
-  tags$p("hallo")
+  div(),#empty, just for spacing
+  navset_pill(
+    id = "tab_menu_2",
+  
+    nav_panel("normal option TODO", 
+      tags$div("graphs 4pl TODO"),
+      accordion(
+        open = FALSE,
+        accordion_panel(
+          title = "4PL-Tests",
+          p("This is the content inside the expandable box."),
+        )
+      ),
+      accordion(
+        open = FALSE,
+        accordion_panel(
+          title = "unrestricted ANOVA for 4PL",
+          p("This is the content inside the expandable box."),
+        )
+      ),
+      accordion(
+        open = FALSE,
+        accordion_panel(
+          title = "Error calculations:", #TODO NAME?
+          p("This is the content inside the expandable box."),
+        )
+      )
+    ),
+    
+    
+    nav_panel("ln-transformed y", 
+      tags$div("graphs 4pl ln transformed y TODO"),
+      accordion(
+        open = FALSE,
+        accordion_panel(
+          title = "4PL-Tests for ln-transformed y",
+          p("This is the content inside the expandable box."),
+        )
+      )
+    ),
+  ),
 )
 
 explore_linear <- tagList(
-  tags$p("linear")
+  tags$p("graphs linear TODO"), 
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Tests for linear PLA:",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "ANOVA for parallel line assay:",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Unrestricted linear model (SSSI):",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Restricted linear model (CSSI):",
+      p("This is the content inside the expandable box."),
+    )
+  )
 )
-
 
 
 
@@ -59,14 +126,18 @@ explore_page <- layout_sidebar(
   
   # Main content goes here (can be multiple elements)
   navset_pill(
-    id = "tab_menu",
+    id = "tab_menu_1",
     nav_panel("4PL", explore_4pl),
     nav_panel("LINEAR", explore_linear)
   ),
-  tags$div(
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Input-Data with added random noise:",
       box( # TODO
         title = "Simulated data per log-concentration", solidHeader = TRUE, width = 12, "incl. mean, sd and CV%",
         DT::dataTableOutput("ConctabMeta") 
       ),
     )
   )
+)

dev/optimize_page.R

@@ -0,0 +1,61 @@
+optimize_4pl <- tagList(
+  tags$p("graphs optimize 4pl TODO"), 
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Tests for linear PLA:",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+)
+
+dilution_slider <- tagList(
+  tags$h2("Finder for optimal dilutions"), 
+  tags$p("graphs optimize dilution-slider TODO"),
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Adjusted dilution factors:",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+)
+
+histograms <- tagList(
+  accordion(
+    open = FALSE,
+    accordion_panel(
+      title = "Parameter Histograms",
+      p("This is the content inside the expandable box."),
+    )
+  ),
+)
+
+optimize_report <- tagList(
+  tags$p("download optimize report TODO"), 
+) 
+
+
+
+
+optimize_page <- layout_sidebar(
+  sidebar = sidebar(
+    class = "sidebar",
+    tags$div(  class = "sidebar_collector",
+       tags$h5( class = "sidebar_collector_header",
+                "Optimization Settings"
+       ),
+       sliderInput("TODO", "Adjust the dilutions (+- change in %):", min = -100, max = 100, value = 0),
+       checkboxInput("TODO2","Fix highest concentration instead of center", FALSE),
+       p("Wider dilution ranges increase the CIs of the relative potency, and decrease the CIs of the upper and lower asymptotes ratios, as well as the Hill's slope ratios."),
+    ),
+  ),
+  
+  
+  # Main content goes here (can be multiple elements)
+  optimize_4pl,
+  dilution_slider,
+  histograms,
+  optimize_report
+  
+)

www/styles.css

@@ -55,18 +55,21 @@ body {
 .tab-button:hover, 
 .navbar-nav .nav-link.focus,
 .tab-button:focus, 
-#tab_menu  .nav-link.active {
+#tab_menu_1  .nav-link.active,
+#tab_menu_2  .nav-link.active{
   background-color: var(--blue-light);
   color: var(--text-light)
 }
 
 /* Center the tab buttons */
-#tab_menu {
+#tab_menu_1,
+#tab_menu_2{
   justify-content: center;
 }
 
 /* Style individual tab buttons */
-#tab_menu  .nav-link {
+#tab_menu_1  .nav-link,
+#tab_menu_2  .nav-link{
   background-color: var(--grey-100);
   border-radius: 4px;
   margin: 0rem 1rem;