#' Command line function launching the new project gadget
#' @description This launches the new project gadget for launching a new project in PLETHEM. With RStudio, this function is available as an addin
#' @examples
#' \dontrun{
#' newProjectGadget()
#' }
#' @export
newProjectGadget <- function(){
ui <- miniPage(
gadgetTitleBar("Create new project"),
miniContentPanel(
fillCol(flex = 1,
fluidRow(
textInput("pname","Enter Project Name",width = validateCssUnit("90%")),
selectInput("mname","Select Model",
choices = list("PLETHEM" = list("rapidPBPK"="rapidPBPK","fishPBPK"="fishPBPK"),
"HTTK" = list("PBTK"="httk_pbtk")
),
width = validateCssUnit("90%")
)
))
)
)
server <- function(input,output,session){
observeEvent(input$done,{
pname <- input$pname
mname <- input$mname
mtype <- "PBPK"
wtype <- input$wtype
code <- sprintf("newProject(name = '%s', type = '%s', model = '%s', mode = 'MC')",
pname,
mtype,
mname)
sendToConsole(code,T)
stopApp()
})
}
runGadget(ui,server,viewer =dialogViewer("Start a new PLETHEM Project",width = 400,height = 400))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.