'No missing ID's' when there are missing IDs

[chasemc]

When entering IDs for the Bruker conversion 'No missing ID's' is displayed no matter what after saving.

Relevant

IDBacApp/R/module_convertBruker.R

Lines 170 to 195 in 665f449

	anyMissing <- reactive({
	req(rawFilesLocation())
	req(sampleMapReactive$rt)
	acquisitonInformation1 <<- acquisitonInformation
	sampleMapReactive1 <<- sampleMapReactive
	spots <- unlist(lapply(acquisitonInformation(), function(x) x$spot))
	IDBacApp::findMissingSampleMapIds(spots = spots,
	sampleMap = sampleMapReactive$rt)
	})
	output$missingSampleNames <- shiny::renderText({
	if (length(anyMissing()$missing) == 0) {
	paste0("No missing IDs")
	} else {
	paste0(paste0(anyMissing()$missing, collapse = " \n ", sep = ","))
	}
	})

Also, update unit test:
https://github.com/chasemc/IDBacApp/blob/6bed5abdee2b09b6e128ba623539b34d5e16e412/tests/testthat/test-findmissingsamplemapids.R