update print_report() function: account for when scan_data() is not e…

[Karim-Mane]

Changes in this PR aims at addressing issue #192

scan_data() returns NA when there is no character column found from the input data. I have set scanning_result = NA in the print_report() function. This will prevent from the error detected by @avallecam when print_report() is given a dataset where scan_data() was not applied to.

[avallecam]

changes fixed the issue. thanks!

data <- readRDS(system.file("extdata", "test_df.RDS", package = "cleanepi"))

# introduce an empty column
data$empty_column <- NA
# introduce some missing values across some columns
data$study_id[3] = NA_character_
data$date.of.admission[3] = NA_character_
data$date.of.admission[4] = NA_character_
data$dateOfBirth[3] = NA_character_
data$dateOfBirth[4] = NA_character_
data$dateOfBirth[5] = NA_character_

# with cutoff = 1, line 3, 4, and 5 are not removed
test <- cleanepi::remove_constants(
  data = data,
  cutoff = 1
)

out <- cleanepi::remove_constants(
  data = test,
  cutoff = 0.5
)

cleanepi::print_report(out)
#> Generating html report in C:\Users\ANDREE~1\AppData\Local\Temp\Rtmpe662Cz
#> [1] "C:\\Users\\ANDREE~1\\AppData\\Local\\Temp\\Rtmpe662Cz/cleanepi_report__2024-10-25_at_142051.html"

^{Created on 2024-10-25 with reprex v2.1.1}