73 lines
3.1 KiB
R
73 lines
3.1 KiB
R
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")
|
|
),
|
|
)
|
|
)
|