cderv

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE language SYSTEM "language.dtd">
<!-- Kate 2.5 (KDE 3.5) highlighting module for R
	based on an earlier version by E.L. Willighagen. Code folding code by Ben Goodrich
	version 2.0: (c) 2006 Thomas Friedrichsmeier, Arne Henningsen, and the RKWard Team
	license: GPL v2
	Kate   : http://kate.kde.org/
	R      : http://www.r-project.org/
	RKWard : http://rkward.kde.org/
	-->

cderv

• This does not work yet
• Zerobrane is correctly configured but still get an error

  pandoc.exe: Cannot decode byte '\x92': Data.Text.Internal.Encoding.decodeUtf8: Invalid UTF-8 stream
  

It seems like what is sent to Pandoc is not ok.

cderv

# Check pandoc version file

devtools::load_all()
library(dplyr)
library(purrr)
library(tidyr)

releases <- pandoc_releases()
releases2 <- map(releases, "[[", c("tag_name"))

cderv

pandoc_list_extension <- function(format = "markdown") {
  res <- processx::run(rmarkdown::pandoc_exec(), c("--list-extension", format))
  tmp_file <- tempfile()
  on.exit(unlink(tmp_file))
  brio::write_file(res$stdout, tmp_file)
  ext <- brio::read_lines(tmp_file)
  tibble::tibble(
    format = format,
    extensions = gsub("^[-+]", "", extensions),
    default = ifelse(gsub("^([-+]{1}).*", "\\1", ext) == "+", TRUE, FALSE)

cderv

---
title: "test"
output: 
  html_document:
    self_contained: false
    includes:
      in_header: head.html
---

<!-- creating header file to insert in-header. mathjax config seems to be required -->

cderv

--[[
  This function tests the pandoc version againt a target version
  For Pandoc 2.7.3, PANDOC_VERSION >= "2.8" would be enough but before 2.7.3
  it is a table object
]]
local function pandocAvailable(target)
  -- this function only work for Pandoc 2.1 and above. It returns false is not
  if not PANDOC_VERSION then return false end
  assert(target, "No target version specified in pandocAvailable.")
  -- checking each version number

cderv

-- MIT LICENCE - 2021 Christophe Dervieux

-- Only works with Pandoc 2.1.2+ because of PANDOC_SCRIPT_FILE availability
function import(script)
  local PATH_SEP = package.config:sub(1,1)
  local path = PANDOC_SCRIPT_FILE:match("(.*"..PATH_SEP..")")
  dofile(path .. script)
end

import("utils.lua")

cderv

all: test-gfm2.md test-gfm.md

test-gfm2.md: test.md
	pandoc -f markdown+gfm_auto_identifiers -t gfm -s --table-of-contents -o $@ $<

test-gfm.md: test.md
	pandoc -f markdown -t gfm -s --table-of-contents -o $@ $<

cderv

How to deploy to Rstudio Connect : Push mode

Theory

• Create a manifest using rsconnect
• Use API to create content on RSC -> GUID
• Create a tar.gz bunlde with the manifest
• USe API to push the bundle

Creating a Manifest

cderv

---
title: "Use R in a lua filter"
output:
  html_document:
    pandoc_args: !expr rmarkdown::pandoc_lua_filter_args("my.lua")
---

This document will have uppercase header using R function `toupper()`

```{cat, engine.opts = list(file = "my.lua")}