started with ui. made a new app.R for that and made the home page and started with the explore page. Header with baselayout is also done.

2026-07-04 00:05:24 +02:00
parent d450000178
commit ce2fa67dab
8 changed files with 279 additions and 1 deletions
@@ -0,0 +1,72 @@
+explore_4pl <- tagList(
+  tags$p("hallo")
+)
+
+explore_linear <- tagList(
+  tags$p("linear")
+)
+
+
+
+
+explore_page <- layout_sidebar(
+  sidebar = sidebar(
+    class = "sidebar",
+    tags$div(  class = "sidebar_collector",
+      tags$h5( class = "sidebar_collector_header",
+        "Exploration Settings"
+      ),
+      sliderInput("sdfac", "Variability of lower to upper asymptote [%]:", min = 0, max = 100, value = 50),
+      sliderInput("potencydiff", "Potency of test [%]:", min = 0, max = 200, value = 100),
+      checkboxInput("PureErrMeta","Use pure error", FALSE),
+      checkboxInput("heterosked","Heteroskedastic noise", FALSE),
+    ),
+    tags$div( class = "sidebar_collector",
+      tags$h5( class = "sidebar_collector_header", "Curve Settings"),
+      numericInput("lowAsymptREF", "lower asymptote REF", 10, step = 1, min = 0),
+      numericInput("lowAsymptTEST", "lower asymptote TEST", 10, step = 1, min = 0),
+      numericInput("uppAsymptREF", "upper asymptote REF", 110, step = 1, min = 0),
+      numericInput("uppAsymptTEST", "upper asymptote TEST", 110, step = 1, min = 0),
+      numericInput("slopeREF", "slope REF", 1, step = 0.1, min = -10),
+      numericInput("slopeTEST", "slope TEST", 1, step = 0.1, min = -10),
+      numericInput("EC50", "EC50 REF", -3.5),
+      numericInput("potDiff", "potency difference", 0)
+      ),
+    tags$div( class = "sidebar_collector",
+              tags$h5( class = "sidebar_collector_header", "Dilutions"),
+              numericInput("CONC1", "highest concentration", 0.3, min = -3.5),
+              numericInput("CONC2", "2nd concentration", 0.15),
+              numericInput("CONC3", "3rd concentration", 0.075),
+              numericInput("CONC4", "4th concentration", 0.0375),
+              numericInput("CONC5", "5th concentration", 0.01875),
+              numericInput("CONC6", "6th concentration", 0.00938),
+              numericInput("CONC7", "7th concentration", 0.00469),
+              numericInput("CONC8", "8thd concentration", 0.00235),
+              numericInput("CONC9", "9thd concentration", value = NA),
+              numericInput("CONC10", "10th concentration", value = NA),
+              numericInput("CONC11", "11th concentration", value = NA),
+              numericInput("CONC12", "lowest concentration", NA)
+    ),
+    tags$div( class = "sidebar_collector",
+              tags$h5( class = "sidebar_collector_header", "Geometric Dilution Scheme"),
+              numericInput("ConcStart", "starting concentration", value = NA, min = 0),
+              numericInput("dilutionFac", "dilution factor", value = NA, min = 0, max = 10),
+              numericInput("NoDil", "no. of dilutions", value = NA, min = 8),
+              numericInput("NoDilSer", "no. of dil. series", value = NA, min = 0), #TODO 1?
+    ),
+  ),
+  
+  
+  # Main content goes here (can be multiple elements)
+  navset_pill(
+    id = "tab_menu",
+    nav_panel("4PL", explore_4pl),
+    nav_panel("LINEAR", explore_linear)
+  ),
+  tags$div(
+    box( # TODO
+      title = "Simulated data per log-concentration", solidHeader = TRUE, width = 12, "incl. mean, sd and CV%",
+      DT::dataTableOutput("ConctabMeta") 
+    ),
+  )
+)