diff --git a/dev/Rcan_script.R b/dev/Rcan_script.R
index 4a02fb5..d3e6980 100644
--- a/dev/Rcan_script.R
+++ b/dev/Rcan_script.R
@@ -50,7 +50,9 @@ library(scales)
 ## use rhub
 
   setwd(pkg_folder)
-  rhub::rhub_setup()
+  # rhub::rhub_setup()
+  rhub::rhub_doctor()
+  rhub::rhub_check()
 
 # post package on CRAN
 
@@ -418,7 +420,7 @@ library(scales)
 
 
   # Plot embedded in a graphic device
-  pdf("test.pdf",width = 11.692 , height =  8.267) 
+  pdf(paste0(tempdir(),"/test.pdf"),width = 11.692 , height =  8.267) 
 
 
   csu_ageSpecific(csu_registry_data_1,
@@ -543,7 +545,7 @@ library(scales)
             smoothing = 0.5)
 
   # Plot embedded in a graphic device
-  pdf("example_test.pdf")
+  pdf(paste0(tempdir(),"/example_test.pdf"))
   csu_time_trend(df_asr, group_by="sex",
             plot_title = "Colombia, Liver",
             smoothing = 0.3)
diff --git a/man/csu_ageSpecific.Rd b/man/csu_ageSpecific.Rd
index d198e1b..21378c6 100644
--- a/man/csu_ageSpecific.Rd
+++ b/man/csu_ageSpecific.Rd
@@ -156,7 +156,7 @@ csu_ageSpecific(
 
 
 # Plot embedded in a graphic device
-pdf("test.pdf",width = 11.692 , height =  8.267) 
+pdf(paste0(tempdir(),"/test.pdf"),width = 11.692 , height =  8.267) 
 
 
 csu_ageSpecific(
diff --git a/man/csu_time_trend.Rd b/man/csu_time_trend.Rd
index ca4a316..13dce3b 100644
--- a/man/csu_time_trend.Rd
+++ b/man/csu_time_trend.Rd
@@ -125,7 +125,7 @@ csu_time_trend(df_data,
 			  smoothing = 0.5)
 
 	# Plot embedded in a graphic device
-	pdf("test.pdf",width = 11.692 , height =  8.267) 
+	pdf(paste0(tempdir(),"/test.pdf"),width = 11.692 , height =  8.267) 
 	csu_time_trend(df_asr, group_by="sex",
 			  plot_title = "Colombia, Liver",
 			  smoothing = 0.3)
diff --git a/man/csu_trendCohortPeriod.Rd b/man/csu_trendCohortPeriod.Rd
index 5b82b8a..27d097c 100644
--- a/man/csu_trendCohortPeriod.Rd
+++ b/man/csu_trendCohortPeriod.Rd
@@ -190,7 +190,7 @@ csu_trendCohortPeriod(
 						  year_group = 2)
 						  
 	# Plot embedded in a graphic device
-	pdf("example_test.pdf")
+	pdf(paste0(tempdir(),"/example_test.pdf"))
 	csu_trendCohortPeriod(df_data=test,
                         missing_age =99,
                         plot_title = "USA, Liver, males",