cleanup

Author: andrewallenbruce

.Rhistory

@@ -1,12 +1,3 @@
-) |>
-gt::opt_all_caps() |>
-gt::fmt_markdown() |>
-gt::tab_header(
-title = gt::md("<span style='color:#0B0B45'><b>Operative Report:</b></span>"),
-subtitle = gt::md("<span style='color:#0B0B45'><i>Excision of Dorsal Ganglion, Right Wrist</i></span>")
-) |>
-gt::tab_options(
-table.width = gt::pct(100),
 heading.title.font.size = gt::px(24),
 heading.subtitle.font.size = gt::px(21),
 heading.align = "left",
@@ -510,3 +501,12 @@ gt_pcs2(pcs("0016070")) |> gt::tab_options(column_labels.hidden = FALSE) |> gt::
 gt_pcs2(pcs("0016070")) |> gt::tab_options(column_labels.hidden = FALSE) |> gt::cols_label(name = gt::html(vert_lab("Name")))
 gt_pcs2(pcs("0016070")) |> gt::tab_options(column_labels.hidden = FALSE) |> gt::cols_label(name = gt::md(vert_lab("Name")))
 pcs("0016070") |> gt::tab_options(column_labels.hidden = FALSE) |> gt::cols_label(name = gt::md(vert_lab("Name"))) |> gt::css()
+devtools::load_all(".")
+pcs_code("0G9")
+pcs_code2("0G9")
+# pak::pak("rconsortium/S7")
+#
+library(S7)
+pcs_code2("")
+nzchar("")
+nzchar(" ")

R/pcs_build_code.R

@@ -148,7 +148,7 @@ pcs_code2 <- function(x = NULL) {
 
   xs <- .pcs_finisher(xs)
 
-  class(xs) <- c("pcs_code", "list")
+  class(xs) <- unique(c("pcs", class(xs)))
 
   return(xs)
 }
@@ -205,9 +205,7 @@ pcs_code2 <- function(x = NULL) {
 #' @noRd
 .pcs_system <- function(x) {
 
-  stopifnot(
-    "`x` hasn't passed through `.pcs_section()`" = inherits(x, "pcs_section")
-    )
+  # stopifnot("`x` hasn't passed through `.pcs_section()`" = inherits(x, "pcs_section"))
 
   step  <- 1
   x$opt <- system <- systems(

pkgdown/_pkgdown.yml

@@ -9,7 +9,7 @@ template:
   bslib:
     font_scale: 1.1
     line_height: 2
-    base_font: {google: "IBM Plex Sans"}
+    base_font: {google: "Roboto Condensed"}
     heading_font: {google: "Atkinson Hyperlegible"}
     code_font: "Hack, mono"
   includes: