Logo is svg

Author: VisruthSK

R/shinystan-package.R

@@ -17,7 +17,7 @@
 #'
 #' @description
 #' \if{html}{
-#'   \figure{logo.png}{options: width="50" alt="mc-stan.org"}
+#'   \figure{logo.svg}{options: width="50" alt="mc-stan.org"}
 #'   \emph{Stan Development Team}
 #' }
 #'

README.md

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

inst/ShinyStan/ui_utils.R

@@ -18,25 +18,28 @@ save_and_close_button <- function() {
 shinystan_version <- function() {
   # prevents error when deployed to shinyapps.io
   ver <- try(utils::packageVersion("shinystan"))
-  if (inherits(ver, "try-error"))
+  if (inherits(ver, "try-error")) {
     return()
-  else
+  } else {
     strong(paste("Version", ver))
+  }
 }
 
 logo_and_name <- function() {
-  div(div(
-    img(
-      src = "wide_ensemble.png",
-      class = "wide-ensemble",
-      width = "100%"
-    )
-  ),
   div(
-    style = "margin-top: 25px",
-    img(src = "stan_logo.png", class = "stan-logo"),
-    div(id = "shinystan-title", "ShinyStan")
-  ))
+    div(
+      img(
+        src = "wide_ensemble.png",
+        class = "wide-ensemble",
+        width = "100%"
+      )
+    ),
+    div(
+      style = "margin-top: 25px",
+      img(src = "stan_logo.svg", class = "stan-logo"),
+      div(id = "shinystan-title", "ShinyStan")
+    )
+  )
 }
 
 
@@ -56,60 +59,82 @@ save_and_close_reminder <- function(id) {
 
 # show/hide options/glossary ---------------------------------------------
 a_options <- function(name) {
-  lab <- if (name == "table")
-    "Table Options" else "Show/Hide Options"
-  div(class = "aoptions",
-      checkboxInput(
-        inputId = paste0(name, "_options_show"),
-        label = strong(style = "margin-top: 20px; color: #222222;", lab),
-        value = FALSE
-      ))
+  lab <- if (name == "table") {
+    "Table Options"
+  } else {
+    "Show/Hide Options"
+  }
+  div(
+    class = "aoptions",
+    checkboxInput(
+      inputId = paste0(name, "_options_show"),
+      label = strong(style = "margin-top: 20px; color: #222222;", lab),
+      value = FALSE
+    )
+  )
 }
 a_glossary <- function(id) {
-  div(class = "aoptions",
-      actionLink(
-        inputId = id,
-        label = strong(style = "margin-top: 20px; color: #222222;", "Glossary"),
-        icon = icon("book", lib = "glyphicon")
-      ))
+  div(
+    class = "aoptions",
+    actionLink(
+      inputId = id,
+      label = strong(style = "margin-top: 20px; color: #222222;", "Glossary"),
+      icon = icon("book", lib = "glyphicon")
+    )
+  )
 }
 
 
-
 # plotOutput generators ---------------------------------------------------
-dygraphOutput_175px <- function(id)
+dygraphOutput_175px <- function(id) {
   dygraphs::dygraphOutput(id, height = "175px")
-plotOutput_200px <- function(id, ...)
+}
+plotOutput_200px <- function(id, ...) {
   plotOutput(id, height = "200px")
-plotOutput_400px <- function(id, ...)
+}
+plotOutput_400px <- function(id, ...) {
   plotOutput(id, height = "400px")
-
+}
 
 
 # conditionalPanel generator for EXPLORE/density  -------------------------
 condPanel_dens_together <- function(...) {
   conditionalPanel(condition = "input.dens_chain_split == 'Together'", ...)
 }
 condPanel_dens_prior <- function(dist, ...) {
-  cond <- paste0("input.dens_prior ==","'", dist,"'")
+  cond <- paste0("input.dens_prior ==", "'", dist, "'")
   conditionalPanel(cond, ...)
 }
 
 
 # conditional transparency settings ---------------------------------------
 alpha_calc_pt <- function(N) {
-  if (N <= 100) return(1)
-  else if (N <= 200) return(0.75)
-  else if (N >= 1500) return(0.15)
-  else 1 - pnorm(N/1500)
+  if (N <= 100) {
+    return(1)
+  } else if (N <= 200) {
+    return(0.75)
+  } else if (N >= 1500) {
+    return(0.15)
+  } else {
+    1 - pnorm(N / 1500)
+  }
 }
 
 alpha_calc_lines <- function(N) {
-  if (N < 50) return(0.5)
-  if (N < 500) return(0.4)
-  if (N < 1000) return(0.3)
-  if (N < 5000) return(0.2)
-  else return(0.1)
+  if (N < 50) {
+    return(0.5)
+  }
+  if (N < 500) {
+    return(0.4)
+  }
+  if (N < 1000) {
+    return(0.3)
+  }
+  if (N < 5000) {
+    return(0.2)
+  } else {
+    return(0.1)
+  }
 }
 
 
@@ -125,28 +150,38 @@ transformation_selectInput <- function(id) {
 
 transform_helpText <- function(var = "x") {
   div(
-    if (var == "x")
-      helpText(style = "font-size: 13px;",
-               "To apply a transformation",
-               "select a function and click",
-               code("Transform"))
-    else if (var == "x,y")
-      helpText(style = "font-size: 13px;",
-               "To apply transformations",
-               "select a function for x and/or y",
-               "and click", code("Transform"))
-    else
-      helpText(style = "font-size: 13px;",
-               "To apply transformations",
-               "select a function for x, y, and/or z",
-               "and click", code("Transform"))
+    if (var == "x") {
+      helpText(
+        style = "font-size: 13px;",
+        "To apply a transformation",
+        "select a function and click",
+        code("Transform")
+      )
+    } else if (var == "x,y") {
+      helpText(
+        style = "font-size: 13px;",
+        "To apply transformations",
+        "select a function for x and/or y",
+        "and click",
+        code("Transform")
+      )
+    } else {
+      helpText(
+        style = "font-size: 13px;",
+        "To apply transformations",
+        "select a function for x, y, and/or z",
+        "and click",
+        code("Transform")
+      )
+    }
   )
 }
 
 
 # diagnostics help text ---------------------------------------------------
-hT11 <- function(...)
+hT11 <- function(...) {
   helpText(style = "font-size: 11px;", ...)
+}
 help_interval <- hT11("Highlighted interval shows \\(\\bar{x} \\pm sd(x)\\)")
 help_lines <- hT11("Lines are mean (solid) and median (dashed)")
 help_max_td <- hT11("Horizontal line indicates the max_treedepth setting")
@@ -162,7 +197,6 @@ help_dynamic <- hT11(
 )
 
 
-
 # ppcheck plot descriptions ----------------------------------------------
 plot_descriptions <-
   c(
@@ -175,7 +209,6 @@ plot_descriptions <-
   )
 
 
-
 # stan manual reference ---------------------------------------------------
 stan_manual <- function() {
   helpText(
@@ -209,8 +242,10 @@ if (!exists(".SHINYSTAN_OBJECT")) {
   isTRUE(.SHINYSTAN_OBJECT@misc$stanreg) &&
   !is.null(.SHINYSTAN_OBJECT@misc$pp_check_plots)
 
-if (exists("object"))
+if (exists("object")) {
   rm(object)
-if (exists(".SHINYSTAN_OBJECT"))
+}
+if (exists(".SHINYSTAN_OBJECT")) {
   rm(.SHINYSTAN_OBJECT)
+}
 gc()