update ignore

Author: jrosen48

.gitignore

@@ -4,3 +4,5 @@
 .Ruserdata
 .DS_Store
 docs/*
+CLAUDE.md
+.claude/

R/data.R

@@ -302,6 +302,21 @@
 #' str(dataedu::all_files)
 "all_files"
 
+#' Walkthrough 06 - Bluesky Data - Raw Posts
+#'
+#' Walkthrough 06 - Raw data accessed from Bluesky on #tidytuesday
+#'
+#'
+#' @name bluesky_posts
+#' @docType data
+#' @format Dataset of class \code{tibble}.
+#' @source Bluesky API
+#' @keywords datasets
+#' @examples
+#'
+#' str(dataedu::child_counts)
+"bluesky_posts"
+
 #' Walkthrough 04 - Students with Disabilities Counts - Combined Data Frame
 #'
 #' Walkthrough 04 - Combined data frame containing students with disabilities

R/font_dataedu.R

@@ -15,17 +15,27 @@ cabinproto <- proto::proto(expr={
     list.files(get_path())
   }
   load_font <- function(., font) {
-    wd <- getwd()
     font_path <- get_path()
+
+    # Check if font path exists (may be empty during development)
+    if (font_path == "" || !dir.exists(font_path)) {
+      warning("Font path not found. The dataedu theme may not work correctly.",
+              call. = FALSE)
+      return(invisible(NULL))
+    }
+
+    wd <- getwd()
+    on.exit(setwd(wd))  # Ensure we always return to original directory
+
     setwd(font_path)
     if (!file.exists(font)) {
-      setwd(wd)
-      stop("font doesn't exist...")
+      warning("Font file '", font, "' doesn't exist.", call. = FALSE)
+      return(invisible(NULL))
     }
+
     sysfonts::font_add(family = sub("\\..*", "", font),
                        regular = font)
     showtext::showtext_auto()
-    setwd(wd)
   }
 })