commit

.Rbuildignore

@@ -1,6 +1,7 @@
 ^provider\.Rproj$
 ^\.Rproj\.user$
 ^LICENSE\.md$
+vignettes
 ^README\.Rmd$
 ^_pkgdown\.yml$
 ^docs$

R/chronic_conditions.R

@@ -368,3 +368,17 @@ cc_multiple <- function(year,
   }
   return(results)
 }
+
+# chronic_conditions <- function(year,
+#                                type = c("specific", "multiple"),
+#                                sublevel = NULL,
+#                                level = NULL,
+#                                fips = NULL,
+#                                age_group = NULL,
+#                                demographic = NULL,
+#                                subdemo = NULL,
+#                                condition = NULL,
+#                                mcc = NULL,
+#                                tidy = TRUE) {
+#
+# }

R/order_refer.R

@@ -1,12 +1,11 @@
 #' Ordering and Referring Eligibility for Medicare
 #'
 #' @description
-#' `order_refer()` allows you to search for physicians and non-physician
-#' practitioners who are of a type/specialty that is legally eligible to order
-#' and refer to Part B (clinical laboratory and imaging), DME and Part A HHA
-#' claims in the Medicare program.
+#' `order_refer()` allows you to search for providers who are legally eligible
+#' to order and refer to Part B (clinical laboratory and imaging), DME and
+#' Part A HHA claims in Medicare.
 #'
-#' ## Ordering and Referring (or Certifying) Providers
+#' ### Ordering and Referring (or Certifying) Providers
 #' **Ordering providers** can order non-physician services for patients.
 #' **Referring providers** can request items or services Medicare may reimburse
 #' on behalf of Medicare beneficiaries.
@@ -32,6 +31,20 @@
 #'   - [CMS.gov: Ordering & Certifying](https://www.cms.gov/medicare/enrollment-renewal/providers-suppliers/chain-ownership-system-pecos/ordering-certifying)
 #'   - [Order and Referring Methodology](https://data.cms.gov/resources/order-and-referring-methodology)
 #'
+#' *Update Frequency:* **Twice Weekly**
+#'
+#' @param npi < *integer* > 10-digit National Provider Identifier
+#' @param first,last < *character* > Provider's first/last name
+#' @param partb,dme,hha,pmd < *boolean* > `TRUE`/`FALSE` <br>
+#' Whether a provider is eligible to order and refer to: <br>
+#'     - `partb`: Medicare Part B
+#'     - `dme`: Durable Medical Equipment
+#'     - `hha`: Home Health Agency
+#'     - `pmd`: Power Mobility Devices
+#' @param tidy < *boolean* > Tidy output; default is `TRUE`.
+#'
+#' @return A [tibble][tibble::tibble-package] with the following columns: <br>
+#'
 #' |Field      |Description                                                 |
 #' |:----------|:-----------------------------------------------------------|
 #' |`npi`      |National Provider Identifier                                |
@@ -40,20 +53,6 @@
 #' |`service`  |Services An Eligible Provider Can Order/Refer To            |
 #' |`eligible` |Indicates that provider can order Durable Medical Equipment |
 #'
-#' *Update Frequency:* **Twice Weekly**
-#'
-#' @param npi < *integer* > 10-digit National Provider Identifier
-#' @param first,last < *character* > Provider's first/last name
-#' @param partb,dme,hha,pmd < *boolean* > `TRUE`/`FALSE`
-#' Whether a provider is eligible to order and refer to:
-#'     * `partb`: Medicare Part B
-#'     * `dme`: Durable Medical Equipment
-#'     * `hha`: Home Health Agency
-#'     * `pmd`: Power Mobility Devices
-#' @param tidy < *boolean* > Tidy output; default is `TRUE`.
-#'
-#' @return A [tibble][tibble::tibble-package]
-#'
 #' @seealso [providers()], [opt_out()], [pending()]
 #'
 #' @examplesIf interactive()

pkgdown/extra.css

@@ -0,0 +1,79 @@
+body {
+  font-family: ui-rounded, 'Hiragino Maru Gothic ProN', Quicksand, Comfortaa, Manjari, 'Arial Rounded MT', 'Arial Rounded MT Bold', Roboto, -apple-system, BlinkMacSystemFont, "Segoe UI", "Helvetica Neue", Arial, sans-serif;
+}
+
+code {
+  font-family: ui-monospace, 'Cascadia Code', 'Source Code Pro', Menlo, Consolas, 'DejaVu Sans Mono', monospace;
+}
+
+h1, .h1 {
+  font-size: 3rem;
+  line-height: 1em;
+}
+
+h2, .h2 {
+  font-size: 2rem;
+  line-height: 1em;
+}
+
+h3, .h3 {
+  font-size: 1.75rem;
+}
+
+h4, .h4 {
+  font-size: 1.25rem;
+}
+
+dt {
+  color: rgb(38, 38, 38);
+  text-decoration: underline;
+  text-decoration-style: solid;
+  text-underline-offset: 4px;
+  font-family: monospace;
+  border-top-style: dotted;
+  border-top-width: 1px;
+  border-top-color: gray;
+  margin-bottom: 5px;
+  padding-top: 5px;
+}
+
+img {
+  border-radius: 6px;
+}
+
+.roles {
+    color: rgb(3, 153, 3) !important;
+}
+
+.me-auto {
+    color: blue !important;
+    animation: color-change 5s infinite !important;
+}
+
+@keyframes color-change {
+  0% { color: #9370DB; }
+  50% { color: #00BFFF; }
+  100% { color: #9370DB; }
+}
+
+.active .nav-link {
+  color: #F85714 !important;
+}
+
+.text-muted {
+  color: rgb(0, 141, 158) !important
+}
+
+dd > p:nth-child(1) > em {
+  color: #4169E1 !important;
+  margin-bottom: 4px !important
+}
+
+dd > p:nth-child(1) {
+  margin-bottom: -5px !important;
+  margin-left: -3px !important;
+}
+
+dd > p:nth-child(2) {
+  margin-left: -6px !important;
+}

vignettes/.gitignore

@@ -1,2 +1,3 @@
 *.html
 *.R
+*.css