Drop two exclude distributions arguments from shiny app as now just the most relaxed by default

[joethorley]

[joethorley]

Also need exculding from R code

[joethorley]

this is where the arguments interface with ssdtools - I've added #FIXME: tags

  fit_dist <- reactive({
    req(input$selectConc)
    req(input$selectDist)
    req(check_fit() == "")
    data <- names_data()
    conc <- input$selectConc %>% make.names()
    dist <- input$selectDist
    x <- try(ssdtools::ssd_fit_dists(data,
      left = conc,
      dists = input$selectDist,
      silent = TRUE,
      computable = input$computable, # FIXME: drop this argument and use default
      # need to get inverse of at_boundary_ok value due to wording of label
      at_boundary_ok = !input$at_boundary_ok, # FIXME: drop this argument and use default
      rescale = input$rescale
    ), silent = TRUE)
    if (inherits(x, "try-error")) {
      x <- NULL
    }
    x
  })