Gives inconsistencies between the presence of a sample and the absence of a harbour of landing

The purpose of the logbook_sample_harbour_control function is to provide a table of data that contains an inconsistency between the presence of a sample and the absence of a harbour of landing

logbook_sample_harbour_control(dataframe1, dataframe2, output)

Arguments

dataframe1: data.frame expected. Csv or output of the function data_extraction, which must be done before using the logbook_sample_harbour_control function.
dataframe2: data.frame expected. Csv or output of the function data_extraction, which must be done before using the logbook_sample_harbour_control function.
output: character expected. Kind of expected output. You can choose between "message", "report" or "logical".

Value

The function returns a character with output is "message", a data.frame with output is "report", a logical with output is "logical"

Details

The input dataframe must contain all these columns for the function to work :

sample_id
trip_id

trip_id
harbour_id_landing
harbour_label_landing

Examples

#Sample 1 is ok,
#Sample 2 has no landing harbour
dataframe1 <- data.frame(sample_id = c("1", "2"),
                         trip_id = c("1", "2"))
dataframe2 <- data.frame(trip_id = c("1"),
                         harbour_id_landing = c("1"),
                         harbour_label_landing = c("harbour_1"))
logbook_sample_harbour_control(dataframe1, dataframe2, output = "report")
#>   sample_id logical harbour_label_landing
#> 1         1    TRUE             harbour_1
#> 2         2   FALSE                  <NA>