Nothing
      test_that("convert_to_date parsing an input vector into POSIXct date-time object", {
  train <- convert_to_date(c(44869, "22.09.2022", NA))
  test <- as.Date(c("2022-11-04 UTC", "2022-09-22 UTC", NA),  "%Y-%m-%d")
  expect_equal(train, test)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.