fix failing tests

pkgdown/_pkgdown.yml

@@ -31,12 +31,14 @@ navbar:
   components:
     home:
       icon: fas fa-home fa-lg
-      text: ""
       href: index.html
+      aria-label: Home
+      text: ""
     intro:
       icon: ~
-      text: Getting started
       href: articles/provider.html
+      aria-label: Intro
+      text: Getting started
     reference:
       text: Reference
       href: reference/index.html
@@ -58,24 +60,28 @@ navbar:
     news:
       icon: far fa-newspaper fa-lg
       href: news/index.html
-      text: ""
+      aria-label: News
       title: "Changelog"
+      text: ""
     github:
       icon: fab fa-github fa-lg
       href: https://github.com/andrewallenbruce/provider
+      aria-label: GitHub
     linkedin:
       icon: fas fa-linkedin fa-lg
-      href: https://www.linkedin.com/in/andybruce1/
+      href: https://www.linkedin.com/in/andrewallenbruce
+      aria-label: LinkedIn
     twitter:
       icon: fab fa-twitter fa-lg
-      href: http://twitter.com/aabrucehimni
+      href: http://twitter.com/andrewallbruce
+      aria-label: X
   opengraph:
     image:
       src: man/figures/card.png
       alt: "Provider Logo"
     twitter:
-      creator: "@aabrucehimni"
-      site: "@aabrucehimni"
+      creator: "@andrewallbruce"
+      site: "@andrewallbruce"
       card: summary_large_image
 
 reference:
@@ -112,7 +118,6 @@ reference:
   - prescribers
   - prescribers_
   - compare_hcpcs
-  - compare_conditions
 
 - title: Classifications
   desc: >
@@ -129,7 +134,6 @@ reference:
     Years available to query for search functions.
   contents:
   - bene_years
-  - cc_years
   - open_years
   - out_years
   - qpp_years

tests/testthat/test-years.R

@@ -1,15 +1,15 @@
 test_that("out_years() works", {
 
   out <- out_years()
-  expect_equal(out, 2015:2021)
-  expect_vector(out, ptype = integer(), size = 7)
+  expect_equal(out, 2015:2022)
+  expect_vector(out, ptype = integer(), size = 8)
 
 })
 
 test_that("open_years() works", {
 
   open <- open_years()
-  expect_equal(open, 2016:2022)
+  expect_equal(open, 2017:2023)
   expect_vector(open, ptype = integer(), size = 7)
 
 })
@@ -18,16 +18,16 @@ test_that("open_years() works", {
 test_that("util_years() works", {
 
   util <- util_years()
-  expect_equal(util, 2013:2021)
-  expect_vector(util, ptype = integer(), size = 9)
+  expect_equal(util, 2013:2022)
+  expect_vector(util, ptype = integer(), size = 10)
 
 })
 
 test_that("rx_years() works", {
 
   rx <- rx_years()
-  expect_equal(rx, 2013:2021)
-  expect_vector(rx, ptype = integer(), size = 9)
+  expect_equal(rx, 2013:2022)
+  expect_vector(rx, ptype = integer(), size = 10)
 
 })