inst/ShinyStan/ui_files/notepad.R

In stan-dev/shinystan: Interactive Visual and Numerical Diagnostics and Posterior Analysis for Bayesian Models

div(id = "notepad_div",
    sidebarLayout(
      sidebarPanel(
        width = 3,
        style = "height: 550px;",
        br(),
        h4("Notes"),
        helpText(
          style = "font-size: 12px;",
          p("Notes are displayed here each time you launch ShinyStan with this shinystan object.")
        ),
        br(),
        actionButton(
          "save_user_model_info",
          label = "Save notes",
          icon = icon("save")
        ),
        div(style = "font-size: 11px;", textOutput("user_text_saved")),
        conditionalPanel(
          condition = "input.save_user_model_info > 0",
          br(),
          save_and_close_reminder("save_user_model_info_safe_quit")
        )
      ),
      mainPanel(
        width = 9,
        br(), br(),
        tags$textarea(
          id = "user_model_info",
          rows = 20,
          cols = 80,
          .notes
        )
      )
    ))