From 56495b791a97a7985c7e8c12c05ce4a7b1ce88ab Mon Sep 17 00:00:00 2001
From: Matthew P Hamilton <30450935+matthewphamilton@users.noreply.github.com>
Date: Tue, 15 Oct 2024 07:22:18 +1100
Subject: [PATCH] fix of bug in get_medicate_ds

---
 DESCRIPTION        | 9 ++++++---
 R/fn_get.R         | 2 +-
 data-raw/fns/get.R | 2 +-
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index c1a289d..dbd18b6 100644
--- a/DESCRIPTION
+++ b/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
diff --git a/R/fn_get.R b/R/fn_get.R
index 966645b..16a2c2e 100644
--- a/R/fn_get.R
+++ b/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))) {
diff --git a/data-raw/fns/get.R b/data-raw/fns/get.R
index f89d9c5..83331c5 100644
--- a/data-raw/fns/get.R
+++ b/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"