R/3_0_utils_mod_editable_rmd.R

In ColinFay/backyard: A Web App for Easier Bookdown Collaboration

#' @importFrom shiny NS tagList tags HTML verbatimTextOutput actionButton
mod_editable_rmdui <- function(id, parentns){
  ns <- shiny::NS(id)
  shiny::tagList(
    shiny::tags$style(shiny::HTML('pre {border: none}')),
    shiny::tags$div(
      style = "background-color: #f5f5f5; border: 1px solid #ccc;",
      tags$div(
        id = "currenteditablecontent",
        class = "currenteditablecontent",
        contenteditable="true",
        verbatimTextOutput(ns("out"))
        ),
      tags$script(paste0('console.log("', ns("out"), '")')),
      (tags$script(paste0('document.getElementById("', parentns("saveeditedcontent"), '").onclick = function() {
                         console.log("sending");
                         var x = $("#currenteditablecontent").html();
                         Shiny.onInputChange("', parentns("editedfromjs"), '", x);
                         };')))

    )
  )
}

#' @importFrom glue as_glue
#' @importFrom shiny renderPrint observeEvent
#' @importFrom yaml as.yaml
mod_editable_rmd <- function(input, output, session, rmd, r){
  ns <- session$ns

  output$out <- shiny::renderPrint({

    if (basename(rmd) == basename(r$index$path)){
      tf <- tempfile(fileext = ".Rmd")
      write(r$index$content, tf)
      rmd <- tf
    }
    glue::as_glue(readLines(rmd))
  })

  shiny::observeEvent(input$fromjsmd, {
    res <- input$fromjs

    if (basename(rmd) == basename(r$index$path)){
      r$index$content <- res
      res <- paste0("---", yaml::as.yaml(r$index_yml), "---", res)
    }

    write(res, rmd)

    saved()
  })
}

#library(shiny)

# ui <- fluidPage(
#   mod_editable_rmdui("test")
# )
#
# server <- function(input, output, session){
#   callModule(mod_editable_rmd, "test", rmd = "inst/bookdown/01-intro.Rmd")
# }
#
# shinyApp(ui, server)