Update README.qmd

README.qmd

@@ -14,6 +14,9 @@ editor_options:
 file_path <- fs::path_real("README.qmd")
 path_components <- strsplit(as.character(file_path), "/")[[1]]
 shortened_path <- fs::path_join(path_components[-(1:6)])
+if (!startsWith(shortened_path, "/")) {
+  shortened_path <- paste0("/", shortened_path)
+}
 ```
 
 ## Location: `r shortened_path`