fix of bug in get_medicate_ds

DESCRIPTION

@@ -13,7 +13,7 @@ Description: Tools for undertaking time series analysis of mental health
     the serious package has been made available as part of the process of
     testing and documenting the package.  If you have any questions,
     please contact the authors (matthew.hamilton1@monash.edu).
-License: GPL-3 + file LICENSE
+License: GPL-3
 URL: https://ready4-dev.github.io/serious/,
     https://github.com/ready4-dev/serious,
     https://ready4-dev.github.io/ready4/
@@ -23,6 +23,7 @@ RoxygenNote: 7.3.2
 Suggests: 
     knitr,
     knitrBootstrap,
+    pkgload,
     rmarkdown,
     testthat
 VignetteBuilder: knitr
@@ -54,8 +55,10 @@ Imports:
     tidyselect,
     tsibble,
     xts,
+    youthu (>= 0.0.0.9122),
     youthvars (>= 0.0.0.9126)
-Remotes: 
+Remotes:  
     ready4-dev/ready4show,
     ready4-dev/ready4use,
-    ready4-dev/youthvars
+    ready4-dev/youthvars,
+    ready4-dev/youthu

R/fn_get.R

@@ -70,7 +70,7 @@ get_medicare_data <- function (path_1L_chr = character(0), clean_1L_lgl = FALSE,
     url_1L_chr = character(0)) 
 {
     if (!identical(path_1L_chr, character(0))) {
-        medicare_tb <- read.csv(path_1L_chr, fileEncoding = "latin1")
+        medicare_df <- read.csv(path_1L_chr, fileEncoding = "latin1")
     }
     else {
         if (identical(url_1L_chr, character(0))) {

data-raw/fns/get.R

@@ -46,7 +46,7 @@ get_medicare_data <- function(path_1L_chr = character(0),
                               file_1L_chr = "MH_MBS_QUARTERS_SEX_AGEGROUP_2223.csv",
                               url_1L_chr = character(0)){
   if(!identical(path_1L_chr, character(0))){
-    medicare_tb <- read.csv(path_1L_chr, fileEncoding = "latin1")
+    medicare_df <- read.csv(path_1L_chr, fileEncoding = "latin1")
   }else{
     if(identical(url_1L_chr, character(0))){
       url_1L_chr <- "https://www.aihw.gov.au/getmedia/285c5287-97ba-4acb-9003-e9edab1f61da/Medicare_mental_health_services_data_2223.zip"