states <- data.frame(locality_id="A1E05", logger_name="Thermo_1",
sensor_name="Thermo_T", tag="error",
start=lubridate::ymd_hm("2020-10-28 9:00"),
end=lubridate::ymd_hm("2020-10-28 9:30"))
data <- mc_states_insert(mc_data_example_clean, states)
data <- mc_states_replace(data, "error")
Run the code above in your browser using DataLab