diff --git a/.github/workflows/publish.yml b/.github/workflows/publish.yml index eb5afd3..aba5362 100644 --- a/.github/workflows/publish.yml +++ b/.github/workflows/publish.yml @@ -73,7 +73,7 @@ jobs: run: | (ls -lrt /opt/quarto/bin/tools/) || echo "chk dir" (which R && which Rscript) || which Rscript || echo "check R path again" - Rscript -e '?shinylive::quarto_ext()' + /opt/R/4.4.1/bin/Rscript -e '?shinylive::quarto_ext()' echo $R_LIBS_USER Rscript -e 'library(shinylive)' quarto check diff --git a/_extensions/quarto-ext/shinylive/shinylive.lua b/_extensions/quarto-ext/shinylive/shinylive.lua index ce8518e..41ceab1 100644 --- a/_extensions/quarto-ext/shinylive/shinylive.lua +++ b/_extensions/quarto-ext/shinylive/shinylive.lua @@ -70,7 +70,7 @@ end -- @param input: string to pipe into to r-shinylive function callRShinylive(args, input) args = { "-e", - "shinylive::quarto_ext()", + "pkgload::load_all('../../', quiet = TRUE); shinylive::quarto_ext()", table.unpack(args) } -- Try calling `pandoc.pipe('Rscript', ...)` and if it fails, print a message @@ -78,7 +78,7 @@ function callRShinylive(args, input) local res local status, err = pcall( function() - res = pandoc.pipe("/opt/R/4.4.1/bin/Rscript", args, input) + res = pandoc.pipe("Rscript", args, input) end )