inst/templates/MB_module_components.R

In ruminate: A Pharmacometrics Data Transformation and Analysis Tool

#library(formods)
library(shinydashboard)

#https://fontawesome.com/icons?from=io

ui <- dashboardPage(
  skin="red",
  dashboardHeader(title="MB Module Template"),
  dashboardSidebar(
     sidebarMenu(
       menuItem("Module UI Components",    tabName="appstate",  icon=icon("archive"))
     )
  ),
  dashboardBody(
    tabItems(
       tabItem(tabName="appstate",
       # Required for tooltips
       prompter::use_prompt(),
       fluidRow(
         box(title=NULL,
             "This app demonstrates how to use the MB
             module with each ui component isolated to make
             it easy to see the behavior.",
        fluidRow(
          box(title="Analysis Actions",
              div(style="display:inline-block",
                  "ui_mb_new_btn",
                  htmlOutput(NS("MB", "ui_mb_new_btn"))),
              div(style="display:inline-block",
                  "ui_mb_save_btn",
                  htmlOutput(NS("MB", "ui_mb_save_btn"))),
              div(style="display:inline-block",
                  "ui_mb_clip_code",
                  htmlOutput(NS("MB", "ui_mb_clip_code")) ),
              div(style="display:inline-block",
                  "ui_mb_del_btn",
                  htmlOutput(NS("MB", "ui_mb_del_btn"))),
              div(style="display:inline-block",
                  "ui_mb_copy_btn",
                  htmlOutput(NS("MB", "ui_mb_copy_btn"))),
              width = 12)
        ),
       width=12)),
       fluidRow(
         box(title="Select current element",
           "ui_select_element",
           htmlOutput(NS("MB", "ui_select_element")),
           "ui_text_element_name",
           htmlOutput(NS("MB", "ui_text_element_name")),
           "ui_select_time_scale",
           htmlOutput(NS("MB", "ui_select_time_scale")),
         ),
         box(title="Base Model From:",
           "ui_select_base_from",    
           htmlOutput(NS("MB", "ui_select_base_from")),
           "ui_select_model_catalog",
           htmlOutput(NS("MB", "ui_select_model_catalog")),
           "ui_upload_model_type",
           htmlOutput(NS("MB", "ui_upload_model_type")),
           "ui_upload_model_file",
           htmlOutput(NS("MB", "ui_upload_model_file"))
         )
         ),
       fluidRow(
         box(title="Model building elements",
           "ui_mb_append_model_btn",
           htmlOutput(NS("MB", "ui_mb_append_model_btn")),
           "ui_select_append_model",
           htmlOutput(NS("MB", "ui_select_append_model"))
         ),
         box(title="Export/download buttons",
           "ui_mb_export_nonmem",
           htmlOutput(NS("MB", "ui_mb_export_nonmem")),
           "ui_mb_export_monolix",
           htmlOutput(NS("MB", "ui_mb_export_monolix"))
         ),
         ),
       fluidRow(
         box(title="Generated Model",
           "ui_mb_model",
           shinyAce::aceEditor(NS("MB", "ui_mb_model")), width=12)),
       fluidRow(
         box(title="Messages",
           "ui_mb_msg",
           verbatimTextOutput(NS("MB", "ui_mb_msg")), width=12)),
       fluidRow(
         box(title="Generated Code",
           "ui_mb_code",
           shinyAce::aceEditor(NS("MB", "ui_mb_code")), width=12)),
       fluidRow(
         box(title="Current Module State",
           verbatimTextOutput("ui_state"),width=12))
       )
      )
    )
  )

# Main app server
server <- function(input, output, session) {

#  MB_test_mksession(session, full_session=TRUE)

  # Empty reactive object to track and react to
  # changes in the module state outside of the module
  react_FM = reactiveValues()

  # Module server
  MB_Server(id="MB", id_ASM = "ASM", react_state=react_FM)

  # Current state outside of the module
  output$ui_state  =  renderText({
    uiele = paste(capture.output(str(react_FM[["MB"]])), collapse="\n")
  uiele})
}

shinyApp(ui, server)