Merge pull request #3 from Appsilon/uirender

Uirender

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: semantic.assets
 Type: Package
 Title: Assets for 'shiny.semantic'
-Version: 1.0.0
+Version: 1.1.0
 Authors@R:  c(
     person("Jakub", "Nowicki", role = c("aut", "cre"), email = "opensource+kuba@appsilon.com")
   )
@@ -12,3 +12,8 @@ License: LGPL-3
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.2.3
+Imports:
+  htmlwidgets
+Suggests:
+  shiny,
+  shiny.semantic

NAMESPACE

@@ -1,3 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
 export(SUPPORTED_THEMES)
+export(uirender)
+import(htmlwidgets)

NEWS.md

@@ -0,0 +1,7 @@
+# semantic.assets 1.1.0
+
+- `uirender` added.
+
+# semantic.assets 1.0.0
+
+First release.

R/uirender.R

@@ -0,0 +1,47 @@
+#' Render semanticui htmlwidget
+#'
+#' htmlwidget that adds semanticui dependencies and
+#' renders in viewer or rmarkdown.
+#'
+#' @import htmlwidgets
+#'
+#' @param ui UI, which will be wrapped in an htmlwidget.
+#' @param width Fixed width for widget (in css units). The default is NULL,
+#' which results in intelligent automatic sizing.
+#' @param height Fixed height for widget (in css units). The default is NULL,
+#' which results in intelligent automatic sizing.
+#' @param element_id Use an explicit element ID for the widget
+#' (rather than an automatically generated one).
+#' @examples
+#' library(shiny)
+#' library(shiny.semantic)
+#' library(semantic.assets)
+#' uirender(
+#'   card(
+#'     div(
+#'       class = "content",
+#'       div(class = "header", "Elliot Fu"),
+#'       div(class = "meta", "Friend"),
+#'       div(class = "description", "Elliot Fu is a film-maker from New York.")
+#'     )
+#'   )
+#' )
+#'
+#' @export
+uirender <- function(ui, width = NULL, height = NULL, element_id = NULL) {
+
+  # forward options using x
+  args <- list(
+    ui = toString(ui)
+  )
+
+  # create widget
+  htmlwidgets::createWidget(
+    name = "uirender",
+    args,
+    width = width,
+    height = height,
+    package = "semantic.assets",
+    elementId = element_id
+  )
+}

inst/WORDLIST

@@ -2,4 +2,10 @@ Appsilon
 CMD
 RStudio
 Rhinoverse
+UI
 appsilon
+css
+htmlwidget
+rmarkdown
+semanticui
+wraped

inst/htmlwidgets/uirender.yaml

@@ -0,0 +1,9 @@
+dependencies:
+  - name: uirender
+    version: 1.1.0
+    src: www/shared/semantic
+    script:
+      - semantic.min.js
+      - uirender.js
+    stylesheet:
+      - semantic.uirender.min.css

inst/www/shared/semantic/uirender.js

@@ -0,0 +1,17 @@
+HTMLWidgets.widget({
+  name: 'uirender',
+  type: 'output',
+
+  factory: function(el, width, height) {
+    console.log('uirender');
+    return {
+      renderValue: function(x) {
+        el.innerHTML = x.ui;
+      },
+
+      resize: function(width, height) {
+        // TODO: code to re-render the widget with a new size
+      }
+    };
+  }
+});