shinymlx: Automatic code generation for Shiny applications

In RsSimulx: Extension of 'lixoftConnectors' for 'Simulx'

Automatic code generation for Shiny applications

Description

Creates a Shiny application for longitudinal data model

Usage

shinymlx(
  model,
  parameter = NULL,
  output = NULL,
  treatment = NULL,
  regressor = NULL,
  group = NULL,
  data = NULL,
  appname,
  style = "basic",
  settings = NULL,
  title = " "
)

Arguments

model	a Mlxtran model used for the simulation
parameter	a vector, or a list of shiny widgets
output	a list - or a list of lists - with fields: name: a vector of output names time: a vector of times, or a vector (min, max, step)
treatment	a list with fields tfd : first time of dose, amount : amount, nd : number of doses, ii : interdose interval, type : the type of input, Input argument of Simulx can also be used, i.e. a list with fields time, amount, rate, tinf, type, target.
regressor	a list, or a list of lists, with fields name : a vector of regressor names, time : a vector of times, value : a vector of values.
group	a list, or a list of lists, with fields: size : size of the group (default=1), level : level(s) of randomization, parameter : if different parameters per group are defined, output : if different outputs per group are defined, treatment : if different treatements per group are defined, regressor : if different regression variables per group are defined.
data	a datafile to display with the plot
appname	the name of the application (and possibly its path)
style	the style of the Shiny app "basic": basic Shiny app with a single side bar (default) "navbar1": navigation bar and tabPanels (including outputs) "navbar2": navigation bar and tabPanels (outputs separated) "dashboard1" : Shiny dashboard,
settings	a list of settings "tabstyle" : look of the tabs c("tabs","pills"), "select.x" : display the list of variables available for the x-axis c(TRUE,FALSE), "select.y" : display the list of variables available for the y-axis c(TRUE,FALSE), "select.log" : log scale option c(TRUE,FALSE), "select.ref" : reference curves option c(TRUE,FALSE)
title	the title of the application

Details

shinymlx automatically generates files ui.R and server.R required for a Shiny application.

Elements of parameters and treatment can be either scalars or lists. A scalar automatically generates a slider with default minimum and maximum values and default step. A list may contain the type of widget ("slider", "select", "numeric") and the settings defining the widget: (value, min, max, step) for slider, (selected, choices) for select and value for numeric.

See http://simulx.webpopix.org/mlxr/shinymlx/ for more details.

Value

A Shiny app with files ui.R, server.R and model.txt

Examples

## Not run: 
PKPDmodel <- inlineModel("
[LONGITUDINAL] 
input={ka,V,Cl,Imax,IC50,S0,kout}
EQUATION:
C     = pkmodel(ka, V, Cl)
E_0   = S0 
ddt_E = kout*((1-Imax*C/(C+IC50))*S0- E)  
")

p1  <- c(ka=0.5, V=10, Cl=1)
p2  <- c(Imax=0.5, IC50=0.03, S0=100, kout=0.1)
adm <- list(tfd=5, nd=15, ii=12, amount=1)
f1  <- list(name = 'C', time = seq(0, 250, by=1))
f2  <- list(name = 'E', time = seq(0, 250, by=1))
f   <- list(f1, f2)

shinymlx(model=PKPDmodel, treatment=adm, parameter=list(p1,p2), output=f,
         style="dashboard1", appname=tempdir())

#------------------------------------------------------------------------
p1 <- list(
  ka    = list(widget="slider", value=0.5, min=0.1, max=2,  step=0.1),
  V     = list(widget="slider", value=10,  min=2,   max=20, step=2),
  Cl    = list(widget="slider", value=1,   min=0.1, max=2,  step=0.1)
)  
adm <- list(
  tfd    = list(widget="slider", value=5,  min=0, max=100, step=5),
  nd     = list(widget="numeric", value=15),
  ii     = list(widget="select", selected=12, choices=c(3,6,12,18,24)),
  amount = list(widget="slider", value=40, min=0, max=50, step=5)
)
s <- list(select.x=FALSE, select.y=FALSE)
shinymlx(model=PKPDmodel, treatment=adm, parameter=list(p1,p2), output=f, 
         style="navbar1", settings=s, appname=tempdir())

## End(Not run)

RsSimulx documentation built on June 22, 2024, 9:36 a.m.