Dplyr databases neon mammals (solution)

Exercise
Output solution

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
Warning: `src_sqlite()` was deprecated in dplyr 1.0.0.
ℹ Please use `tbl()` directly with a database connection
Rows: 307 Columns: 56
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (27): uid, domainID, siteID, plotID, trapCoordinate, nlcdClass, geodeti...
dbl  (13): decimalLatitude, decimalLongitude, elevation, hindfootLength, ear...
lgl  (15): coordinateUncertainty, elevationUncertainty, tagID, individualNid...
date  (1): date

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Rows: 135 Columns: 14
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (7): uid, domainID, siteID, plotID, eventID, identificationReferences, ...
dbl  (5): night, setTraps, disturbedTraps, samplingEffort, duplicateNightQF
lgl  (1): samplingProtocolVersion
date (1): date

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Rows: 13637 Columns: 10
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (6): uid, domainID, siteID, plotID, trapCoordinate, eventID
dbl  (2): trapStatus, duplicateTrapCoordinateQF
lgl  (1): trapType
date (1): date

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Warning: Missing values are always removed in SQL aggregation functions.
Use `na.rm = TRUE` to silence this warning
This warning is displayed once every 8 hours.

`summarise()` has grouped output by "scientificName". You can override using
the `.groups` argument.

Joining with `by = join_by(eventID)`