R/componentModification.R

In lavaangui: Graphical User Interface with Integrated 'Diagrammer' for 'Lavaan'

modificationUI <- function(id) {
  tabPanel(
    title = "Modification indices",
    sidebarLayout(
      sidebarPanel(
        width = 2,
        createDigitsInput(id),
      ),
      mainPanel(
        DT::DTOutput(NS(id, "table"))
      )
    )
  )
}

modificationServer <- function(id, fit) {
  moduleServer(id, function(input, output, session) {
    callback <- "
var tips = ['Modification Index (Change in \u03C7\u00B2)', 'Expected Parameter Change', 'Expected Parameter Change (Standardizing all Latent Variables)',
            'Expected Parameter Change (Standardizing all Variables)', 'Expected Parameter Change (Standardizing all but Exogenous Observed Variables)'],
    header = table.columns().header();
for (var i = 0; i < tips.length; i++) {
  $(header[i+3]).attr('title', tips[i]);
}
"
    output$table <- DT::renderDataTable(
      custom_dt(modifyResTable(modificationIndices(fit())), input$digits, callback = callback)
    )
  })
}