Merge branch 'development'

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: tntpr
 Title: Data Analysis Tools Customized for TNTP
-Version: 1.1.0
+Version: 1.2.0
 Authors@R: c(
       person("Dustin", "Pashouwer", role = c("aut", "cre"), 
              email = "dustin.pashouwer@tntp.org"),
@@ -32,7 +32,7 @@ Imports:
     keyring,
     labelled,
     lubridate (>= 1.7.4),
-    magrittr (>= 1.5),
+    Microsoft365R,
     purrr (>= 0.3.3),
     readr,
     rlang,
@@ -52,10 +52,12 @@ Suggests:
     ggalt,
     forcats,
     qualtRics,
-    haven
+    haven,
+    readxl,
+    writexl
 VignetteBuilder: 
     knitr
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Config/testthat/edition: 3

NAMESPACE

@@ -28,6 +28,18 @@ export(setup_subdirectory)
 export(show_in_excel)
 export(show_tntp_colors)
 export(show_tntp_palette)
+export(sp_create_folder)
+export(sp_defaults)
+export(sp_download)
+export(sp_drive)
+export(sp_list)
+export(sp_list_drives)
+export(sp_list_sites)
+export(sp_list_subsites)
+export(sp_read)
+export(sp_site)
+export(sp_upload)
+export(sp_write)
 export(tableN)
 export(theme_tntp)
 export(theme_tntp_2018)
@@ -42,5 +54,4 @@ export(update_tntpr)
 importFrom(formattable,percent)
 importFrom(ggplot2,"%+replace%")
 importFrom(ggplot2,theme_minimal)
-importFrom(magrittr,"%>%")
 importFrom(rlang,`%||%`)

NEWS.md

@@ -1,3 +1,8 @@
+# tntpr 1.2.0
+
+* Added sp_*() family of functions for reading from / writing to Sharepoint.
+
+* Fixed tntp_colors() to return supplied names if given
 
 # tntpr 1.1.0
 

R/palette_tntp.R

@@ -254,8 +254,8 @@ palette_tntp_scales <- function(palette = palette_names) {
 #' library(ggplot2)
 #' library(dplyr)
 #'
-#' x <- mtcars %>%
-#'   count(cyl, am) %>%
+#' x <- mtcars |>
+#'   count(cyl, am) |>
 #'   mutate(am = as.factor(am))
 #'
 #' ggplot(x, aes(x = cyl, y = n, fill = am)) + # you need a fill aesthetic