added editor_proxy_reset()

Author: pvictor

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: toastui
-Title: Interactive Tables, Calendars and Charts for the Web
-Version: 0.4.0
+Title: Interactive Tables, Calendars, Charts and Editor for the Web
+Version: 0.4.0.9000
 Authors@R: c(
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre", "cph")),
   person("Fanny", "Meyer", role = "aut"),

NAMESPACE

@@ -42,6 +42,7 @@ export(editor_proxy)
 export(editor_proxy_change_preview)
 export(editor_proxy_hide)
 export(editor_proxy_insert)
+export(editor_proxy_reset)
 export(editor_proxy_show)
 export(grid_click)
 export(grid_col_button)

NEWS.md

@@ -1,3 +1,8 @@
+# toastui 0.4.1
+
+* Added proxy method `editor_proxy_reset()` to reset an editor.
+
+
 # toastui 0.4.0
 
 * New htmlwidget `editor()`, a Markdown WYSIWYG Editor (https://ui.toast.com/tui-editor).

R/editor-proxy.R

@@ -94,6 +94,26 @@ editor_proxy_insert <- function(proxy, text) {
   )
 }
 
+#' Reset an editor
+#'
+#' @param proxy A [editor_proxy()] or `outputId` of the editor
+#'
+#' @return A `editor_proxy` object.
+#' @export
+#'
+#' @family editor proxy methods
+#'
+#' @example examples/editor-proxy.R
+editor_proxy_reset <- function(proxy) {
+  if (is.character(proxy)) {
+    proxy <- editor_proxy(proxy)
+  }
+  .call_proxy(
+    proxy = proxy,
+    name = "editor-reset"
+  )
+}
+
 
 #' @title Show/hide an editor
 #'

examples/editor-proxy.R

@@ -14,15 +14,17 @@ ui <- fluidPage(
       ),
       checkboxInput(
         inputId = "showhide",
-        label = "Show/hide editor", 
+        label = "Show/hide editor",
         value = TRUE
       ),
       textInput(
         inputId = "text",
         label = "Text to insert:",
         width = "100%"
       ),
-      actionButton("insert", "Insert text")
+      actionButton("insert", "Insert text", width = "100%"),
+      tags$br(), tags$br(),
+      actionButton("reset", "Reset", width = "100%")
     ),
     column(
       width = 8,
@@ -32,27 +34,31 @@ ui <- fluidPage(
 )
 
 server <- function(input, output, session) {
-  
+
   output$my_editor <- renderEditor({
     editor()
   })
-  
+
   observeEvent(input$changePreviewStyle, {
     editor_proxy_change_preview("my_editor", input$changePreviewStyle)
   }, ignoreInit = TRUE)
-  
+
   observeEvent(input$showhide, {
     if (input$showhide) {
       editor_proxy_show("my_editor")
     } else {
       editor_proxy_hide("my_editor")
     }
   }, ignoreInit = TRUE)
-  
+
   observeEvent(input$insert, {
     editor_proxy_insert("my_editor", text = input$text)
   })
-  
+
+  observeEvent(input$reset, {
+    editor_proxy_reset("my_editor")
+  })
+
 }
 
 if (interactive())