Audiomoths are super cool autonomous recording units (ARUs) that record audio on a set recording schedule. They are often used to record the calls of birds or bats in an environment. Audiomoth.tools is a collection of functions that I have put together when using my Audiomoth. Feel free to recommend changes or improvements!
You can install the development version of this package from GitHub with:
# install.packages("remotes")
remotes::install_github("samherniman/audiomoth.tools")library(audiomoth.tools)Currently, there are only two useful functions in this package:
Use extract_header_info to extract the information contained in the
headers of each WAV file. The headers contain the recording date, time,
serial number, gain setting, battery state, and temperature. More
details and Python code are provided by Open Acoustic Devices
here.
This function extracts these data from the header of all Audiomoth files
in a given directory and returns a dataframe.
extract_header_info(system.file("extdata", package = "audiomoth.tools"), recursive = FALSE)
#> # A tibble: 3 x 6
#> recorded_date_time timezone sensor_name_ser~ gain_setting battery_voltage
#> <dttm> <chr> <chr> <chr> <dbl>
#> 1 2021-02-01 21:01:00 UTC AudioMoth 11X11~ medium 4
#> 2 2021-02-01 21:06:00 UTC AudioMoth 11X11~ medium 4
#> 3 2021-02-01 21:11:00 UTC AudioMoth 11X11~ medium 4
#> # ... with 1 more variable: temperature_celcius <dbl>Here’s an example of a figure you can make with the temperature.
header_df <- vroom::vroom(system.file("extdata", "header_df.csv", package = "audiomoth.tools"))
library(ggplot2)
library(magrittr)
header_df %>%
ggplot(data = .)+
geom_point(aes(x = recorded_date_time, y = temperature_celcius, color = temperature_celcius))+
geom_smooth(
aes(x = recorded_date_time, y = temperature_celcius),
method = 'gam',
se = FALSE,
color = "brown"
)+
scico::scale_color_scico("Temperature (°C)", palette = "romaO", direction = -1) +
labs(y = "Temperature (°C)", x = "Date") +
theme(
panel.background = element_rect(fill = "grey98"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())
Depending on your version of the audiomoth software, filenames may look
like 20210201_210100T.WAV (YYYYMMDD_HHMMSST). If you want to upload
these files to Arbimon, you may have to
remove the T at the end of each filename. You can use
rename_audiomoth_files to do this.
rename_audiomoth_files(system.file("extdata", package = "audiomoth.tools"))