get rid of xfun::attr(): yihui/xfun#96

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: blogdown
 Title: Create Blogs and Websites with R Markdown
-Version: 1.19.1
+Version: 1.19.2
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
     person("Christophe", "Dervieux", role = "aut", email = "cderv@posit.co", comment = c(ORCID = "0000-0003-4474-2498")),
@@ -66,5 +66,5 @@ Suggests:
     whoami
 Config/Needs/website: pkgdown, tidyverse/tidytemplate, rstudio/quillt, rstudio/webshot2
 Encoding: UTF-8
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 SystemRequirements: Hugo (<https://gohugo.io>) and Pandoc (<https://pandoc.org>)

NAMESPACE

@@ -52,7 +52,6 @@ export(write_toml)
 export(yaml2toml)
 import(stats)
 import(utils)
-importFrom(xfun,attr)
 importFrom(xfun,del_empty_dir)
 importFrom(xfun,dir_create)
 importFrom(xfun,dir_exists)

R/package.R

@@ -11,7 +11,7 @@
 #' @aliases blogdown-package
 #' @import utils
 #' @import stats
-#' @importFrom xfun attr in_dir read_utf8 write_utf8 is_windows is_macos
+#' @importFrom xfun in_dir read_utf8 write_utf8 is_windows is_macos
 #'   file_exists dir_exists file_ext msg_cat dir_create del_empty_dir proc_kill
 #'   set_envvar exit_call existing_files
 #' @examples if (interactive()) blogdown::new_site()

R/render.R

@@ -218,9 +218,9 @@ build_one = function(input, output, to_md = file_ext(output) != 'html', quiet =
 }
 
 process_markdown = function(res, x = read_utf8(res)) {
-  unlink(xfun::attr(res, 'intermediates'))
+  unlink(attr(res, 'intermediates'))
   # write HTML dependencies to the body of Markdown
-  if (length(meta <- xfun::attr(res, 'knit_meta'))) {
+  if (length(meta <- attr(res, 'knit_meta'))) {
     m = rmarkdown:::html_dependencies_as_string(meta, attr(res, 'files_dir'), '.')
     if (length(i <- grep('^---\\s*$', x)) >= 2) {
       x = append(x, m, i[2])

R/utils.R

@@ -36,6 +36,8 @@ pkg_file = function(..., mustWork = TRUE) {
   system.file(..., package = 'blogdown', mustWork = mustWork)
 }
 
+attr = function(...) base::attr(..., exact = TRUE)
+
 # tempfile under the current working directory
 wd_tempfile = function(..., pattern = '') {
   basename(tempfile(pattern, '.', ...))

blogdown.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 7de02ffc-a200-4611-bc07-18b265ee1be3
 
 RestoreWorkspace: Default
 SaveWorkspace: Default