Trying to remove red logo

Author: VisruthSK

R/rstan_create_package.R

@@ -21,7 +21,7 @@
 #' @aliases rstan_package_skeleton
 #'
 #' @description
-#'   \if{html}{\figure{stanlogo.png}{options: width="25" alt="https://mc-stan.org/about/logo/"}}
+#'   \if{html}{\figure{logo.svg.png}{options: width="25" alt="https://mc-stan.org/about/logo/"}}
 #'   The `rstan_create_package()` function helps get you started developing a
 #'   new \R package that interfaces with Stan via the \pkg{rstan} package. First
 #'   the basic package structure is set up via [usethis::create_package()].
@@ -118,26 +118,32 @@
 #' @template seealso-vignettes
 #' @template seealso-get-help
 #'
-rstan_create_package <- function(path,
-                                 fields = NULL,
-                                 rstudio = TRUE,
-                                 open = TRUE,
-                                 stan_files = character(),
-                                 roxygen = TRUE,
-                                 travis = FALSE,
-                                 license = TRUE,
-                                 auto_config = TRUE) {
+rstan_create_package <- function(
+  path,
+  fields = NULL,
+  rstudio = TRUE,
+  open = TRUE,
+  stan_files = character(),
+  roxygen = TRUE,
+  travis = FALSE,
+  license = TRUE,
+  auto_config = TRUE
+) {
   if (!requireNamespace("usethis", quietly = TRUE)) {
-    stop("Please install package 'usethis' to use function 'rstan_create_package'.",
-         call. = FALSE)
+    stop(
+      "Please install package 'usethis' to use function 'rstan_create_package'.",
+      call. = FALSE
+    )
   }
   DIR <- dirname(path)
   name <- basename(path)
   .check_stan_ext(stan_files)
 
   if (rstudio && !requireNamespace("rstudioapi", quietly = TRUE)) {
-    stop("Please install package 'rstudioapi' to use option 'rstudio = TRUE'.",
-         call. = FALSE)
+    stop(
+      "Please install package 'rstudioapi' to use option 'rstudio = TRUE'.",
+      call. = FALSE
+    )
     rstudio <- rstudio && rstudioapi::isAvailable()
   }
   if (open && rstudio) {
@@ -169,28 +175,48 @@ rstan_create_package <- function(path,
 # check stan extensions
 .check_stan_ext <- function(stan_files) {
   if (length(stan_files) && !all(grepl("\\.stan$", stan_files))) {
-    stop("All files named in 'stan_files' must end ",
-         "with a '.stan' extension.", call. = FALSE)
+    stop(
+      "All files named in 'stan_files' must end ",
+      "with a '.stan' extension.",
+      call. = FALSE
+    )
   }
 }
 
 # add travis file
 .add_travis <- function(pkgdir) {
   travis_file <- readLines(.system_file("travis.yml"))
-  .add_stanfile(gsub("RSTAN_PACKAGE_NAME", basename(pkgdir), travis_file),
-                pkgdir, ".travis.yml",
-                noedit = FALSE, msg = TRUE, warn = FALSE)
+  .add_stanfile(
+    gsub("RSTAN_PACKAGE_NAME", basename(pkgdir), travis_file),
+    pkgdir,
+    ".travis.yml",
+    noedit = FALSE,
+    msg = TRUE,
+    warn = FALSE
+  )
 }
 
 # add .gitignore and .Rbuildignore files
 .add_gitignore_Rbuildignore <- function(pkgdir, travis) {
   gitignore_files <- c("^rcppExports.cpp$", "^stanExports_*")
-  .add_stanfile(gitignore_files, pkgdir, ".gitignore",
-                noedit = FALSE, msg = TRUE, warn = FALSE)
+  .add_stanfile(
+    gitignore_files,
+    pkgdir,
+    ".gitignore",
+    noedit = FALSE,
+    msg = TRUE,
+    warn = FALSE
+  )
 
   Rbuildignore_files <- c(gitignore_files, if (travis) "^\\.travis\\.yml$")
-  .add_stanfile(Rbuildignore_files, pkgdir, ".Rbuildignore",
-                noedit = FALSE, msg = TRUE, warn = FALSE)
+  .add_stanfile(
+    Rbuildignore_files,
+    pkgdir,
+    ".Rbuildignore",
+    noedit = FALSE,
+    msg = TRUE,
+    warn = FALSE
+  )
 }
 
 # add R/mypkg-package.R file with roxygen import comments
@@ -199,9 +225,15 @@ rstan_create_package <- function(path,
   pkg_file <- readLines(.system_file("rstanpkg-package.R"))
   pkg_file <- gsub("RSTAN_PACKAGE_NAME", basename(pkgdir), pkg_file)
   pkg_file <- gsub("RSTAN_REFERENCE", .rstan_reference(), pkg_file)
-  .add_stanfile(pkg_file, pkgdir,
-                "R", paste0(basename(pkgdir), "-package.R"),
-                noedit = FALSE, msg = TRUE, warn = FALSE)
+  .add_stanfile(
+    pkg_file,
+    pkgdir,
+    "R",
+    paste0(basename(pkgdir), "-package.R"),
+    noedit = FALSE,
+    msg = TRUE,
+    warn = FALSE
+  )
   desc_pkg <- desc::description$new(file.path(pkgdir, "DESCRIPTION"))
   desc_pkg$set(Encoding = "UTF-8")
   desc_pkg$write()
@@ -210,25 +242,40 @@ rstan_create_package <- function(path,
 # reference to rstan package
 .rstan_reference <- function() {
   has_version <- utils::packageDescription("rstan", fields = "Version")
-  version_year <- substr(utils::packageDescription("rstan", fields = "Date"), 1, 4)
+  version_year <- substr(
+    utils::packageDescription("rstan", fields = "Date"),
+    1,
+    4
+  )
   paste0(
-    "Stan Development Team (", version_year,"). ",
+    "Stan Development Team (",
+    version_year,
+    "). ",
     "RStan: the R interface to Stan. ",
-    "R package version ", has_version, ". ",
+    "R package version ",
+    has_version,
+    ". ",
     "https://mc-stan.org"
   )
 }
 
 # add stan functionality to package
-.rstan_make_pkg <- function(pkgdir, stan_files,
-                            roxygen, travis, license, auto_config) {
-
+.rstan_make_pkg <- function(
+  pkgdir,
+  stan_files,
+  roxygen,
+  travis,
+  license,
+  auto_config
+) {
   use_rstan(pkgdir, license = license, auto_config = auto_config)
   file.copy(
     from = stan_files,
     to = file.path(pkgdir, "inst", "stan", basename(stan_files))
   )
-  if (roxygen) .add_roxygen(pkgdir)
+  if (roxygen) {
+    .add_roxygen(pkgdir)
+  }
   if (travis) {
     .add_travis(pkgdir)
     warning(
@@ -301,7 +348,6 @@ rstan_create_package <- function(path,
 ## error:
 ##   - when {dir/file}.create fails even though it doesn't exist
 
-
 ## ok stan_meta_header.hpp is problematic, because want to warn if already exists, but only if it's there from before...
 
 ## so .add_stanfile(file_lines, pkgdir, ...,

R/rstantools-package.R

@@ -5,7 +5,7 @@
 #'
 #' @description
 #' \if{html}{
-#'   \figure{stanlogo.png}{options: width="50" alt="mc-stan.org"}
+#'   \figure{logo.svg.png}{options: width="50" alt="mc-stan.org"}
 #' } *Stan Development Team*
 #'
 #' The \pkg{rstantools} package provides various tools for developers of \R
@@ -26,7 +26,8 @@
 # internal ----------------------------------------------------------------
 
 # release reminders (for devtools)
-release_questions <- function() { # nocov start
+release_questions <- function() {
+  # nocov start
   c(
     "Have you updated the developer guidelines in the vignette?"
   )

README.md

@@ -1,4 +1,4 @@
-# rstantools <img src="man/figures/stanlogo.png" align="right" width="120" />
+# rstantools <img src="man/figures/logo.svg.png" align="right" width="120" />
 
 <!-- badges: start -->
 [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/rstantools?color=blue)](https://cran.r-project.org/web/packages/rstantools)

_pkgdown.yml

@@ -5,6 +5,9 @@ destination: "."
 template:
   package: pkgdownconfig
 
+development:
+  mode: auto
+
 navbar:
   title: "rstantools"