WIP plotly example

jrosell · Aug 6, 2024 · d2d3653 · d2d3653
1 parent 9b17d84
commit d2d3653
Show file tree

Hide file tree

Showing 13 changed files with 155 additions and 207 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -2,6 +2,7 @@
 
 export(amb_button)
 export(amb_card)
+export(amb_htmlwidget)
 export(amb_input_text)
 export(ambhtmx)
 export(button)

diff --git a/R/components-amb.R b/R/components-amb.R
@@ -81,3 +81,7 @@ amb_button <- \(..., class = "rounded-1", type = "button") {
     ...
   )
 }
+
+
+
+
diff --git a/R/components-htmlwidgets.R b/R/components-htmlwidgets.R
@@ -0,0 +1,39 @@
+#' @keywords components
+#' @rdname components
+#' @param widget htmlwidget to convert as a shiny.tag
+#' @param ... attributes to add to the container
+#' @param width to customeize the width of the container
+#' @param height to customeize the width of the container
+#' @export
+amb_htmlwidget <- \(widget, ..., width = "100%", height = "400px") {
+  temp_widget_file <- NULL
+  widget_chr <- withr::with_tempfile("temp_widget_file", fileext = ".html", {
+    htmlwidgets::saveWidget(widget, temp_widget_file, selfcontained = TRUE)
+    lines_read <- readLines(temp_widget_file)    
+    full_html <- paste0(lines_read, "\n", collapse = "")
+    full_html |> 
+      stringr::str_replace_all("<!DOCTYPE html>", "") |> 
+      stringr::str_replace_all('<meta charset="utf-8" />', "") |>
+      stringr::str_replace_all("<title>.*</title>", "") |>
+      stringr::str_replace_all("<html.*>", "") |> 
+      stringr::str_replace_all("</html>", "") |> 
+      stringr::str_replace_all("<head>", "") |> 
+      stringr::str_replace_all("</head>", "") |> 
+      stringr::str_replace_all("<body.*>", "") |> 
+      stringr::str_replace_all("</body>", "")
+  })
+  widget_html <- htmltools::HTML(widget_chr)
+  widget_tags <- htmltools::tags$div(widget_html, width = width, height = height, ...)
+  widget_tags
+}
+
+# #'@noRd
+# amb_htmlwidget_data <- \(widget, ..., width = "100%", height = "400px") {
+#   widget_chr <- withr::with_tempfile("temp_widget_file", fileext = ".html", {
+#     htmlwidgets::saveWidget(widget, temp_widget_file, selfcontained = TRUE)
+#     readLines(temp_widget_file) |> 
+#       paste0("\n", collapse = "")  
+#   })
+#   start_pattern <- '<script type="application/json" data-for="'
+#   stringr::str_extract(widget_chr, glue::glue('{start_pattern}.*</script>'))
+# }
diff --git a/R/dev.R b/R/dev.R
@@ -88,11 +88,9 @@ rebuild_docs_and_check <- function() {
   # spain_ccaas <- readr::read_rds("inst/extdata/spain_ccaas.rds")
   # spain_provinces <- readr::read_rds("inst/extdata/spain_provinces.rds")
   # usethis::use_data(spain_ccaas, spain_provinces, overwrite = TRUE)
-  usethis::use_namespace()  
-  devtools::document()
+  usethis::use_namespace()      
+  devtools::check(document = TRUE)  
   pkgdown::build_site(preview = FALSE)
   utils::browseURL(here::here("docs", "index.html"), browser = "firefox")
-  devtools::check()
-  devtools::load_all()
   # usethis::use_version(which = "dev", push = FALSE)
 }
diff --git a/R/rendering.R b/R/rendering.R
@@ -11,15 +11,19 @@
 render_page <- \(main = NULL, page_title = NULL, head_tags = NULL) {
   penv <- rlang::env_parent()
   genv <- rlang::global_env()
+  if (is_debug_enabled()) cat(glue::glue("render_page {page_title}\n\n"))
   if (is.null(page_title)){    
     page_title <- penv[["page_title"]]
   }
+  if (is_debug_enabled()) cat(glue::glue("render_page penv {page_title}\n\n"))
   if (is.null(page_title)){    
     page_title <- genv[["page_title"]]
   }
+  if (is_debug_enabled()) cat(glue::glue("render_page genv {page_title}\n\n"))
   if (is.null(page_title)){    
     page_title <- "ambhtmx"
   }
+  if (is_debug_enabled()) cat(glue::glue("render_page default {page_title}\n\n"))  
   if (is.null(main)){    
     main <- penv[["main"]]
   }

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -2,7 +2,7 @@ pandoc: 3.1.12.3
 pkgdown: 2.1.0
 pkgdown_sha: ~
 articles: {}
-last_built: 2024-08-05T22:15Z
+last_built: 2024-08-06T13:30Z
 urls:
   reference: https://jrosell.github.io/ambhtmx/reference
   article: https://jrosell.github.io/ambhtmx/articles
diff --git a/docs/reference/amb_htmlwidget.html b/docs/reference/amb_htmlwidget.html
@@ -0,0 +1,8 @@
+<html>
+  <head>
+    <meta http-equiv="refresh" content="0;URL=https://jrosell.github.io/ambhtmx/reference/components.html" />
+    <meta name="robots" content="noindex">
+    <link rel="canonical" href="https://jrosell.github.io/ambhtmx/reference/components.html">
+  </head>
+</html>
+
diff --git a/docs/reference/components.html b/docs/reference/components.html
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/search.json b/docs/search.json