Rename package.

.Rbuildignore

@@ -1,4 +1,4 @@
-^juicydown\.Rproj$
+^juicedown\.Rproj$
 ^\.Rproj\.user$
 ^LICENSE\.md$
 ^_pkgdown\.yml$

DESCRIPTION

@@ -1,4 +1,4 @@
-Package: juicydown
+Package: juicedown
 Title: Convert R Markdown into HTML with Inline Styles
 Version: 0.0.0.9000
 Authors@R: 
@@ -12,7 +12,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.3
-URL: https://kenjisato.github.io/juicydown/
+URL: https://kenjisato.github.io/juicedown/
 Suggests: 
     testthat (>= 3.0.0)
 Config/testthat/edition: 3

LICENSE

@@ -1,2 +1,2 @@
 YEAR: 2023
-COPYRIGHT HOLDER: juicydown authors
+COPYRIGHT HOLDER: juicedown authors

LICENSE.md

@@ -1,6 +1,6 @@
 # MIT License
 
-Copyright (c) 2023 juicydown authors
+Copyright (c) 2023 juicedown authors
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

R/convert_markdown2html.R

@@ -1,8 +1,8 @@
 convert_markdown2html <- function(
     in_text, template = the$template, stylesheet = the$stylesheet) {
 
-  template <- getd(template, getOption("juicydown.template"))
-  stylesheet <- getd(stylesheet, getOption("juicydown.article.css"))
+  template <- getd(template, getOption("juicedown.template"))
+  stylesheet <- getd(stylesheet, getOption("juicedown.article.css"))
 
   tdir <- getd(the$tempdir, tempdir())
   dir <- getd(the$dir, tdir)

R/css_resolve.R

@@ -5,7 +5,7 @@ css_combine <- function(stylesheet, file = stdout()) {
                    FUN.VALUE = character(1), USE.NAMES = FALSE)
   compiled <- sass::sass(bundle)
 
-  cat("/* CSS generated by juicydown */\n\n", file = file)
+  cat("/* CSS generated by juicedown */\n\n", file = file)
   cat(compiled, file = file, append = TRUE, sep = "\n")
 }
 

R/juicydown-package.R → R/juicedown-package.R

@@ -11,7 +11,5 @@
 #' @importFrom stringr str_split
 #' @importFrom stringr str_split_1
 #' @importFrom stringr str_squish
-#' @importFrom utils head
-#' @importFrom utils tail
 ## usethis namespace: end
 NULL

R/juicedown_example.R

@@ -0,0 +1,8 @@
+
+juicedown_example <- function(path = NULL) {
+  if (is.null(path)) {
+    list.files(pkg_file("samples"))
+  } else {
+    pkg_file("samples", path)
+  }
+}

R/math.R

@@ -4,14 +4,16 @@ correct_equations_ <- function(text) {
   text <- gsub("\u3002$", "\u3002 $", text, fixed = TRUE)
 
   # math begin
-  math_lines <- which(head(text, -1) == "$$" & tail(text, -1) == "\\begin{aligned}")
+  math_lines <-
+    which(utils::head(text, -1) == "$$" & utils::tail(text, -1) == "\\begin{aligned}")
   for (i in math_lines) {
     text[[i]] <- "$$\\begin{aligned}"
     text[[i+1]] <- NA
   }
 
   # math end
-  math_lines <- which(head(text, -1) == "\\end{aligned}" & tail(text, -1) == "$$")
+  math_lines <-
+    which(utils::head(text, -1) == "\\end{aligned}" & utils::tail(text, -1) == "$$")
   for (i in math_lines) {
     text[[i]] <- "\\end{aligned}$$"
     text[[i+1]] <- NA

R/rstudio.R

@@ -9,7 +9,7 @@ preview <- function(stylesheet = NULL, ...) {
     message("Preview output created: ", htmlFile, "\n",
             "Please verify the final result on your Moodle site."
     )
-    message("To produce the final result, run juicydown::convert() ",
+    message("To produce the final result, run juicedown::convert() ",
             "in the console.")
 
     message("CSS files used: \n", paste(css, collapse = "\n"))

R/zzz.R

@@ -1,16 +1,16 @@
 .onLoad <- function(libname, pkgname) {
   op <- options()
-  op.juicydown <- list(
-    juicydown.template = pkg_file("xml", "template.html"),
-    juicydown.article.css = pkg_file("css", "article.css"),
-    juicydown.div.css = pkg_file("css", "div.css")
+  op.juicedown <- list(
+    juicedown.template = pkg_file("xml", "template.html"),
+    juicedown.article.css = pkg_file("css", "article.css"),
+    juicedown.div.css = pkg_file("css", "div.css")
   )
-  toset <- !(names(op.juicydown) %in% names(op))
-  if (any(toset)) options(op.juicydown[toset])
+  toset <- !(names(op.juicedown) %in% names(op))
+  if (any(toset)) options(op.juicedown[toset])
 
   invisible()
 }
 
 .onAttach <- function(libname, pkgname) {
-  # packageStartupMessage("Welcome to juicydown")
+  # packageStartupMessage("Welcome to juicedown")
 }

README.Rmd

@@ -13,32 +13,32 @@ knitr::opts_chunk$set(
 )
 ```
 
-# juicydown
+# juicedown
 
 <!-- badges: start -->
-[![R-CMD-check](https://github.com/kenjisato/juicydown/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/kenjisato/juicydown/actions/workflows/R-CMD-check.yaml)
+[![R-CMD-check](https://github.com/kenjisato/juicedown/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/kenjisato/juicedown/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
-The goal of juicydown is to offer useful tools to minimize routine formatting of 
+The goal of juicedown is to offer useful tools to minimize routine formatting of 
 page contents on such CMS as Moodle where code editor silently ignore style and 
 link tags. To generate CSS-inlined HTML, the package uses [juicyjuce] package 
 along with [knitr] and [markdown] packages. 
 
 ## Installation
 
-You can install the development version of juicydown from [GitHub](https://github.com/) with:
+You can install the development version of juicedown from [GitHub](https://github.com/) with:
 
 ``` r
 # install.packages("remotes")
-remotes::install_github("kenjisato/juicydown")
+remotes::install_github("kenjisato/juicedown")
 ```
 
 ## Example
 
 This is a basic example which shows you how to solve a common problem:
 
 ```{r example}
-library(juicydown)
+library(juicedown)
 ## basic example code
 ```
 

README.md

@@ -1,34 +1,34 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
-# juicydown
+# juicedown
 
 <!-- badges: start -->
 
-[![R-CMD-check](https://github.com/kenjisato/juicydown/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/kenjisato/juicydown/actions/workflows/R-CMD-check.yaml)
+[![R-CMD-check](https://github.com/kenjisato/juicedown/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/kenjisato/juicedown/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
-The goal of juicydown is to offer useful tools to minimize routine
+The goal of juicedown is to offer useful tools to minimize routine
 formatting of page contents on such CMS as Moodle where code editor
 silently ignore style and link tags. To generate CSS-inlined HTML, the
 package uses \[juicyjuce\] package along with \[knitr\] and \[markdown\]
 packages.
 
 ## Installation
 
-You can install the development version of juicydown from
+You can install the development version of juicedown from
 [GitHub](https://github.com/) with:
 
 ``` r
 # install.packages("remotes")
-remotes::install_github("kenjisato/juicydown")
+remotes::install_github("kenjisato/juicedown")
 ```
 
 ## Example
 
 This is a basic example which shows you how to solve a common problem:
 
 ``` r
-library(juicydown)
+library(juicedown)
 ## basic example code
 ```

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: https://kenjisato.github.io/juicydown/
+url: https://kenjisato.github.io/juicedown/
 template:
   bootstrap: 5
 

tests/testthat.R

@@ -7,6 +7,6 @@
 # * https://testthat.r-lib.org/reference/test_package.html#special-files
 
 library(testthat)
-library(juicydown)
+library(juicedown)
 
-test_check("juicydown")
+test_check("juicedown")