R/gizmo-wrangle-drop-dups.R

In fellstat/vivid:

drop_dups_ui <- function(id="", variables=c()){
  ns <- NS(id)
  pickerInput(
    ns("dup_vars"),
    "Check For Duplicates On:",
    choices = variables,
    multi=TRUE,
    options = list(`actions-box` = TRUE,
                   `live-search`=TRUE,
                   `none-selected-text`="Use All Variables")
  )
}

drop_dups_server <- function(input, ouput, session, data, variables, state=NULL){
  if(!is.null(state)){
    session$onFlushed(function() {
      updatePickerInput(session, "dup_vars", selected = state$dup_vars)
    })
  }
  code <- reactive({
    vars <- input$dup_vars
    paste0("dplyr::distinct(", format_vars(vars), ")")
  })

  output_variables <- variables
  set_input_variables <- function(v){
    observe({
      updatePickerInput(session, "dup_vars", choices = v()$objects)
    })
  }
  set_input_variables(variables)


  get_state <- function(){
    list(dup_vars = input$dup_vars)
  }
  list(
    code = code,
    set_input_variables = set_input_variables,
    output_variables = output_variables,
    name="drop_dups",
    get_state=get_state
  )
}