finalize PubMed feature by creating landing table

[meerapatelmd]

So far a PM_RESULTS Table is created. This needs to be pivoteted across to get the earliest to latest date range:

1. Average of each boundary with a standard deviation
2. Names of publications and snippets to be able to determine that the search returned a drug

[meerapatelmd]

pm_results <-
fantasia::qOMOP(
        "select * 
        from patelm9.pm_results"
)

pm_results %>%
        group_by(search_term, search_type) %>%
        summarize(is_missing = all(is.na(snippet))) %>%
        filter(is_missing == TRUE) %>%
        ungroup() %>%
        group_by(search_term) %>%
        summarize(no_results = all((is_missing == TRUE))) %>%
        filter(no_results == TRUE)