genShinyApp.template function

Generate an example (template) of a dosing regimen shiny app

Create a complete shiny application for exploring dosing regimens given a (hardcoded) PK/PD model.

genShinyApp.template(
  appDir = "shinyExample",
  verbose = TRUE,
  ODE.config = list(ode = "model", params = c(KA = 0.294), inits = c(eff = 1), method =
    "lsoda", atol = 1e-08, rtol = 1e-06)
)

write.template.server(appDir)

write.template.ui(appDir, statevars)

Arguments

• appDir: a string with a directory where to store the shiny app, by default is "shinyExample". The directory appDir will be created if it does not exist.

• verbose: logical specifying whether to write messages as the shiny app is generated. Defaults to TRUE.

• ODE.config: model name compiled and list of parameters sent to rxSolve().

• statevars: List of statevars passed to to the write.template.ui() function. This usually isn't called directly.

  A PK/PD model is defined using rxode2(), and a set of parameters and initial values are defined. Then the appropriate R scripts for the shiny's user interface ui.R

  and the server logic server.R are created in the directory appDir.

  The function evaluates the following PK/PD model by default:

  C2 = centr/V2;
      C3 = peri/V3;
      d/dt(depot) =-KA*depot;
      d/dt(centr) = KA*depot - CL*C2 - Q*C2 + Q*C3;
      d/dt(peri)  =                    Q*C2 - Q*C3;
      d/dt(eff)  = Kin - Kout*(1-C2/(EC50+C2))*eff;
  

  This can be changed by the ODE.config parameter.

  To launch the shiny app, simply issue the runApp(appDir)

  R command.

Returns

None, these functions are used for their side effects.

Note

These functions create a simple, but working example of a dosing regimen simulation web application. Users may want to modify the code to experiment creating shiny applications for their specific rxode2 models.

Examples

# remove myapp when the example is complete
on.exit(unlink("myapp", recursive = TRUE, force = TRUE))
# create the shiny app example (template)
genShinyApp.template(appDir = "myapp")
# run the shiny app
if (requireNamespace("shiny", quietly=TRUE)) {
  library(shiny)
  # runApp("myapp") # Won't launch in environments without browsers
}

See Also

rxode2(),eventTable(), and the package shiny (https://shiny.posit.co).