Related questions

navbar of shiny app interferes with navbar of rmarkdown webpage

2018-10-11 19:27 Derek Corcoran imported from Stackoverflow

I am starting a webpage for my lab, and among the products we have developed is a shiny app to check the global climate change.

Here is the website in that page and this is how the app looks standalone as you can see in the menu there are three options that are not seen in the website, in the intro tab, the Intro, Workflow, About and Changelog should be visible

Website yaml

I made a webpage using classic rmarkdown website building, so my webpage yaml looks like this:

name: "Sitio web de ecoinformática del laboratorio Marquet"
navbar:
  title: "Ecoinformática"
  left:
    - text: "Home"
      href: index.html
    - text: "Sobre nosotros"
      href: about.html
    - text: "GCM compareR app"
      href: GCMcompareR.html
    - text: Docencia
      icon: fa-gear
      menu:
      - text: Ecología BIO231c 
      - text: Modulo 1.1
        href: Modulo1.1.html
      - text: Modulo 1.2
        href: Modulo1.2.html
    - text: RPackages
      icon: fa-gear
      menu:
      - text: RPackages
      - text: NetworkExtinction
        href: VignetteNetworkExt.html
output_dir: "."
output:
  html_document:
    theme: cosmo
    highlight: textmate
    include:
    css: styles.css

Actual app Rmd

And in the tab of GCM compareR app I have the following:

---
title: ""
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE) 
```

<iframe src="http://admin.ecoinformatica.net/shiny/rstudio/sample-apps/GCM/"style="border: 0; position:absolute; top:0; left:0; right:0; bottom:0; width:100%; height:100%"">

Solutions that might work but cant figure out

  • Add a padding on the top to prevent both navbars to generate conflicts
  • Remove the navbar of the website when I go to the app webpage
  • Make the navbar of de website "deployable", so that it only appears when I move the cursor to the edge of the webpage
  • change the navbar of the webpage to the left.

What I have tried:

Changing the borders :

<iframe src="http://admin.ecoinformatica.net/shiny/rstudio/sample-apps/GCM/"style="border: 100; position:absolute; top:100; left:0; right:0; bottom:0; width:100%; height:100%"">

make the app responsive

<div class="resp-container">
    <iframe class="resp-iframe" src="http://admin.ecoinformatica.net/shiny/rstudio/sample-apps/GCM/" style="border: 100; position:absolute; top:100; left:0; right:0; bottom:0; width:100%; height:100%"">

use include_app

```{r}
knitr::include_app("http://admin.ecoinformatica.net/shiny/rstudio/sample-apps/GCM/", height = "600px")
```

Which kind of works, but I can't fix the width

Any help would be welcome

See also questions close to this topic

  • Is this the right way to parameterize query? Is there any other way?

    Well i learned how to parameterize queries in php but i just wanted to ask that is it now totally secure from sql injection or any other type of attacks and if it isnt what betternment can i do to secure it even more?

    <?php
include 'db.php';
$name = "";
$pass = "";
if(isset($_POST['send'])) {
    $name = $_POST['name'];
    $sql_u = "SELECT * FROM users WHERE username='$name'";
    $res_u = $connection->query($sql_u);
    if (mysqli_num_rows($res_u) > 0) {
        echo "Sorry Username already taken";
    }
    else {
        $password = $_POST['pass'];
        $hpass = password_hash($password, PASSWORD_DEFAULT);
        $query=$connection->prepare("insert into users (username,password) values (?,?)");
        $query->bind_param('ss',$name,$hpass);
        if ($query->execute()) {
            $query->close();
            header('location:index.php');
        } else {
            header('location:not.php');
        }
    }
}

    I want to know if their is a even more secure way than only parameterizing queries?

  • How to extract JSON data from the HTML data using Python?

    I'm trying to make a python script that can read JSON data in outlook Email.But problem is how to extract JSON data from HTML data. This is my Original JSON data that I want to extract.

    {
"vpn_detail":
    {
        "username":"harnishs",  
        "tokens":   
            [
                "85188605",
                "00422786",
            ],
        "cluster_name":"*******.com"
    }

}

    So I have read my this JSON data using imaplib in outlook but it's read JSON data in HTML.So this JSON data is converted into HTML, Its read outlook email like this(In HTML Form), 

    b'<html>\r\n<head>\r\n<meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Diso-8859-=\r\n1">\r\n<style type=3D"text/css" style=3D"display:none;"><!-- P {margin-top:0;margi=\r\nn-bottom:0;} --></style>\r\n</head>\r\n<body dir=3D"ltr">\r\n<div id=3D"divtagdefaultwrapper" style=3D"font-size:12pt;color:#000000;font=\r\n-family:Calibri,Helvetica,sans-serif;" dir=3D"ltr">\r\n<p style=3D"margin-top:0;margin-bottom:0"></p>\r\n<div>{<br>\r\n&quot;vpn_detail&quot;:<br>\r\n&nbsp;&nbsp; &nbsp;{<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&quot;username&quot;:&quot;kushpate&q=\r\nuot;,&nbsp;&nbsp; &nbsp;<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&quot;tokens&quot;:&nbsp;&nbsp; &nbsp=\r\n;<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;[<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;85188605&quot;,<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;00422786&quot;,<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;94548619&quot;,<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;51249494&quot;,<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;HHEF0EA5&quot;,<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=\r\n;&quot;2E09A81E&quot;<br>\r\n&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;],<br>\r\n&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&quot;cluster_name&quot;:&quot;bgl13-=\r\nvpn-cluster-2.cisco.com&quot;<br>\r\n&nbsp;&nbsp; &nbsp;}<br>\r\n<br>\r\n}</div>\r\n<br>\r\n<p></p>\r\n</div>\r\n</body>\r\n</html>\r\n'

    So Now from this HTML data, I want same JSON file, I have make my code like this,

    from bs4 import BeautifulSoup
MyStr =""" HTML data """
soup = BeautifulSoup(MyStr, "html.parser")
print(soup.text.strip().replace(" ", ""))

    So this code give me this result,

    b'


<!--P{margin-top:0;margi=
n-bottom:0;}-->




{
"vpn_detail":
   {
      "username":"harnishs&q;=
uot;,   
      "tokens":   =
;
         [
            =
;"85188605",
            =
;"00422786",
            =
;"94548619",
            =
;
          ],
      "cluster_name":"***********.com"
   }

}





'

    But I want this data same as input JSON data, still its did not exact mining. Suggest me any changes so I can get same JSON data through email.

  • Uncaught (in promise) DOMException on click audio play (autoplay problem)

    I have a simple script for playing an audio stream when I click on a specific button:

     var audio1 = document.getElementById("audio1");

    function play1(){
       audio1.play();
    }

    And simple HTML audio player:

    <audio volume="0" controlslist="nodownload" id="audio1" src="http://audio-stream.com" width="100%" height="100%"/>

    And also simple img button:

    <img onclick="play1()" src="http://button-img.com"/>

    And this actually works, when I press the img button, the audio starts playing, but there is one problem, which is autoplay. Actually when I click on any link on the site and after loading the page, audio starts to play without pressing the button - autoplay. But if I click on the refresh button on the browser or when I enter the site, there is no autoplay in this case..

    It also shows this error in the console Uncaught (in promise) DOMException on the line of code audio1.play();

  • Adding a responsive sidebar to a Leaflet application in R

    I am building a Leaflet application in R. I want polygons in my map to be clickable. A side bar should then show additional information about the clicked element.

    The only solution I could find are in Javascript, such as this one: https://github.com/turbo87/leaflet-sidebar/

    I only use R and don't know how/if I can combine that with Javascript

  • Hot to fix "Error in tabulate(phy$edge[, 1]) : 'bin' must be numeric or a factor" in "comparative.data"

    I'm using comparative.data to overlap my phylogenentic tree and my data, but it's not working

    "Error in tabulate(phy$edge[, 1]) : 'bin' must be numeric or a factor".

    I don't know where my mistake is.

    I'm building a phylogenetic tree with ape package, I cutted tips using drop.tip, then when I tried to use my new cutted tree and my data to overlap them with "comparative.data" an error message appears:

    "Error in tabulate(phy$edge[, 1]) : 'bin' must be numeric or a factor".

    Afterwards, I converted them into factor or numeric with as.factor/as.numeric, but the feedback says "numeric (0)" and "factor(0) Levels:". I don't know what else to do.

    library(ape)

lizardtree= read.tree("all_tree_ALF.new")
lizards= read.table("LIZARD_DIET.csv", sep= ",", header= T, dec=".")

delete1= c("Dibamus_bourreti", "Dibamus_greeri", "Dibamus_montanus",[...]
.
.
.
delete48= c([...]"Anolis_tropidogaster", "Anolis_trachyderma", "Anolis_poecilopus")

deletefinal= c(delete1, delete2,[...],delete48)

lizardtreefinal= plot(drop.tip(lizardtree, deletefinal),cex= 0.4)

arbollagarto= dplyr::select(lizards,"EMBL.PYRON.13","MAX.FO")

   lagartos= na.omit(arbollagarto)

lagartoyarbol= comparative.data(phy= lizardtreefinal, data= lagartos, names.col= EMBL.PYRON.13, vcv=T)

    I need the data and the tree to be overlapped to use Pagel's Lambda, but everytime I get

    "Error in tabulate(phy$edge[, 1]) : 'bin' must be numeric or a factor"

    or when I try to change the cutted tree into "phylo" with as-phylo

    "Error in UseMethod("as.phylo") : no applicable method for 'as.phylo' applied to an object of class "list"

    appears. With 

    class(lizardtreefinal_Noduplicates)<-"phylo"

    seemed to work but I get again 'bin' must be numeric...

  • and i get this error message : rror: unexpected ','

    Do you understand what is the problem ? :) Thank you !!!

    library(ggplot2) 
df <- data.frame(stringsAsFactors=FALSE, 
   INTER1 = c(1, 2, 3, 4, 7, 8), LATITUDE = x, LONGITUDE = y)

eastern_map + geom_point(data = df, aes(x = LONGITUDE, y = LATITUDE,
   color = INTER1)), size=1, alpha=0.5 + theme(legend.position = "bottom")

    and i get this error message :

    rror: unexpected ',' in:

    "eastern_map + geom_point(data = df, aes(x = LONGITUDE, y = LATITUDE, color = INTER1)),"

  • How to load IFRAMES which was used on site on Webview xcode 10

    I have a site, in which several iframe is loading. I Test the site and it is fully functionaled.

    Now For IOS Webview, I implemented the code.

    My site is completely transformed into IOS App. But the problem is that I frames is not loading. I test this On browser and it works fine. All IFrames are loading properly, but not on IOS Webview APP.

    My ViewController.swift Code is:

    import UIKit
import WebKit
class ViewController: UIViewController, WKNavigationDelegate {
   var webView: WKWebView!

   override func loadView() {
       let webConfiguration = WKWebViewConfiguration()
       webView = WKWebView(frame: .zero, configuration: webConfiguration)
       webView.uiDelegate = self as? WKUIDelegate
       webView.navigationDelegate = self
       view = webView
   }
   override func viewDidLoad() {
       super.viewDidLoad()

       let url = URL(string: "http://192.168.1.4:8080")!
       webView.load(URLRequest(url: url))
       webView.allowsBackForwardNavigationGestures = true
   }


}

    Can anyone suggest me why it is not loading.

    Any help or suggestion is really apreciated

  • Youtube video given in iframe tag but its not working in Safari browser 
    <iframe width="100%" height="500" src="https://www.youtube.com/embed/alswD2tCc_Q?rel=0" frameborder="0" allowfullscreen=""></iframe>

    Hi All,

    Above is my code. The video is working in all browsers besides Safari.Can you guys help me to fix this issue?

    Thanks in Advance.

  • How to fix Google Maps Platform rejected your request. Invalid request. Unexpected parameter 'amp%3Bkey'

    angular error

    Google Maps Platform rejected your request. Invalid request. Unexpected parameter 'amp%3Bkey'.

    in console

    GET https://www.google.com/maps/embed/v1/place?q=19.499201,77.656332&key=APIKEY 400

    HTML code

    <iframe width="100%" height="150" frameborder="0" style="border:0" [src]="location(details)"></iframe>

    TS code

    location(details:any){
    let location = `https://www.google.com/maps/embed/v1/place?q=${details.longitude},${details.latitude}&amp;key=<apiKey>`;
    return this.sanitizer.bypassSecurityTrustResourceUrl(location);
}

    I am facing the issue with

    bypassSecurityTrustResourceUrl function which converts the string ',' comma to '%3B'

    .

  • Failed to connect to MySql from Shiny-docker app

    I have a Shiny app which is hosted in Ubuntu. This app depends on data that are updated each day and the updated data is stored in local MySql server. To fetch data when App 

    Statistics_FN = function() {
                    library(RMySQL)
                        mydb1 = RMySQL::dbConnect(MySQL(), user = 'Application', password = 'XXX*', dbname = 'YYY', 
                                                    host = 'localhost', unix.socket = '/run/mysqld/mysqld.sock')
                        Statistics = RMySQL::fetch(dbSendQuery(mydb1, paste("select * from Weekly_Statistics")))

                    dbClearResult(dbListResults(mydb1)[[1]])
                    RMySQL::dbDisconnect(mydb1)
                    detach("package:RMySQL", unload = TRUE)

                    return(Statistics)
                }
                Statistics = Statistics_FN()

    Now I have dockerized this App with below Docker file -

    FROM r-base:3.5.0

RUN apt-get update && apt-get install -y \
    sudo \
    gdebi-core \
    pandoc \
    pandoc-citeproc \
    libcurl4-gnutls-dev \
    libcairo2-dev/unstable \
    libudunits2-dev \
    libxml2-dev \
    libxt-dev \
    libv8-dev \
    libgdal-dev \
    libssl-dev

RUN wget --no-verbose https://s3.amazonaws.com/rstudio-shiny-server-os-build/ubuntu-12.04/x86_64/VERSION -O "version.txt" && \
    VERSION=$(cat version.txt)  && \
    wget --no-verbose "https://s3.amazonaws.com/rstudio-shiny-server-os-build/ubuntu-12.04/x86_64/shiny-server-$VERSION-amd64.deb" -O ss-latest.deb && \
    gdebi -n ss-latest.deb && \
    rm -f version.txt ss-latest.deb

RUN R -e "install.packages(c('shiny', 'shinydashboard'), repos='http://cran.rstudio.com/')"
RUN R -e "install.packages(c('purrr', 'RMySQL'), repos='http://cran.rstudio.com/', dependencies = TRUE)"

COPY shiny-server.conf  /etc/shiny-server/shiny-server.conf
COPY /Vol_Lab /srv/shiny-server/

COPY shiny-server.sh /usr/bin/shiny-server.sh

CMD ["/usr/bin/shiny-server.sh"]

RUN mkdir /root/app
COPY App /root/app

COPY Rprofile.site /usr/lib/R/etc/

EXPOSE 8383

CMD ["R", "-e", "shiny::runApp('/root/app')"]

    However with above configuration, I failed to run my Dockerized app. When I checked the docker logs 3655f065c1ed, I see below line of error

    Error in .local(drv, ...) :
  Failed to connect to database: Error: Can't connect to local MySQL server through socket '/run/mysqld/mysqld.sock' (2)

    I also tried with host = '127.0.0.1', but could not succeed.

    Can somebody points me to the right direction how can I connect to local MySql db from my Shiny app contained within Docker?

    Modified server.R and Docker files based on Duy Phan's reply :-

    Statistics_FN = function() {
                    library(RMySQL)
                        mydb1 = RMySQL::dbConnect(MySQL(), user = 'Application', password = 'XXX*', dbname = 'YYY', 
                                                    host = 'localhost', port = 3306)
                        Statistics = RMySQL::fetch(dbSendQuery(mydb1, paste("select * from Weekly_Statistics")))

                    dbClearResult(dbListResults(mydb1)[[1]])
                    RMySQL::dbDisconnect(mydb1)
                    detach("package:RMySQL", unload = TRUE)

                    return(Statistics)
                }
                Statistics = Statistics_FN()

    Docker file -

    FROM r-base:3.5.0

RUN apt-get update && apt-get install -y \
    sudo \
    gdebi-core \
    pandoc \
    pandoc-citeproc \
    libcurl4-gnutls-dev \
    libcairo2-dev/unstable \
    libudunits2-dev \
    libxml2-dev \
    libxt-dev \
    libv8-dev \
    libgdal-dev \
    libssl-dev

RUN wget --no-verbose https://s3.amazonaws.com/rstudio-shiny-server-os-build/ubuntu-12.04/x86_64/VERSION -O "version.txt" && \
    VERSION=$(cat version.txt)  && \
    wget --no-verbose "https://s3.amazonaws.com/rstudio-shiny-server-os-build/ubuntu-12.04/x86_64/shiny-server-$VERSION-amd64.deb" -O ss-latest.deb && \
    gdebi -n ss-latest.deb && \
    rm -f version.txt ss-latest.deb

RUN R -e "install.packages(c('shiny', 'shinydashboard'), repos='http://cran.rstudio.com/')"
RUN R -e "install.packages(c('dplyr', 'tidyr', 'RMySQL'), repos='http://cran.rstudio.com/', dependencies = TRUE)"

COPY shiny-server.conf  /etc/shiny-server/shiny-server.conf
COPY /FinDerivs /srv/shiny-server/

COPY shiny-server.sh /usr/bin/shiny-server.sh

CMD ["/usr/bin/shiny-server.sh"]

RUN mkdir /root/app
COPY App /root/app

COPY Rprofile.site /usr/lib/R/etc/

EXPOSE 7373
EXPOSE 3306

CMD ["R", "-e", "shiny::runApp('/root/app')"]

    I am still getting same error :

    Error in .local(drv, ...) :
  Failed to connect to database: Error: Can't connect to local MySQL server through socket '/var/run/mysqld/mysqld.sock' (2)

    **Information from **docker ps****

    # docker ps
CONTAINER ID        IMAGE               COMMAND                  CREATED             STATUS              PORTS                              NAMES
0266e80a5464        5fe2ba858107        "R -e shiny::runApp(…"   About an hour ago   Up 28 minutes       3306/tcp, 0.0.0.0:7373->7373/tcp   ecstatic_hypatia
  • Hide the header (colnames) of Table output before clicking input submit button using Shiny R

    I am currently using Shiny R to create an interactive query page. The main part of my code is as follows.

    #ui.R    
aa = read.csv("...csv", header= TRUE, stringsAsFactors = FALSE)
shinyUI(fluidPage(
   titlePanel("Book Recommendation Engine"),
   fluidRow(
       column(4, 
       selectInput("select1", label = h3("Choose A Book Title"),
                   choices = as.character(aa$book[1:nrow(aa)])),
       selectInput("select2", label = h3("Choose A Book Version"),
                   choices = as.character(aa$version[1:nrow(aa)]))
       ),

    column(6,
       h3("The corresponding book is: "),
       submitButton("submit"),
       tableOutput("text")
    ))))

#server.R
aa = read.csv("...csv", header= TRUE, stringsAsFactors = FALSE)
shinyServer(function(input, output,session){
   observe({
      sel1 = input$select1
      sel2 = input$select2
      choice2= as.character(aa$version[which(aa$book == sel1)])
      updateSelectInput(session, "select1", choices = as.character(aa$book 
              [1:nrow(aa)]), selected = "sel2" )
      updateSelectInput(session, "select2", choices = choice2 )
      })

   output$text = renderTable({
   req(book_recommendation(input$select1, input$select2))
   book_recommendation(input$select1, input$select2) # return a table   
   })
 })

    On the initial page with no inputs, there always exists the header (e.g., id, book, version, link, etc.) of the output table with no values.

    enter image description here

    After clicking the submitButton, it is filled with query value. Does anyone know how to remove or hide the header of output table and only show it after clicking the submitButton? Thanks a lot!

  • How to embed a PDF in my shiny application run on an AWS server without using www folder?

    I know how to use tags$iframe with src pointing to my pdf or jpeg file located in my www folder like this question explains: displaying a pdf from a local drive in shiny

    My problem, however, is that I do not want to make the files publicly accessible through the www folder. To avoid this, I have tried using imageOutput() and renderImage() and gotten picture files to work reasonably-well.

    My issue still remains with the pdfs which do not load using imageOutput. How can I embed a pdf in my shiny-app without making it publicly available in the www folder. Ideally, this solution would also work with jpeg and other picture files as well.

    The iframe solution is perfect except for its publicly available www folder

  • Large blank spaces after figure captions in Bookdown?

    I seem to be unable to control the number of blank spaces after a figure caption.

    For two (to my eyes) identical pieces of code, one is placed and immediately followed by text after its caption, whereas the other figure has about half a page worth of blank space following its caption before the text I want is there.

    the two chunks giving different results in the .pdf output

    the corresponding two plots

    In this second picture - of latex'd plots, why does the first code chunk give a near-empty page after caption and the second be followed by subsequent text so nicely?

    This is a part of my index.rmd (minus title, etc.) - could it be something to do with linestretch?

    header-includes: 
- \usepackage{float}  #use the 'float' package
- \floatplacement{figure}{H} #make every figure with caption = H
output:
  bookdown::pdf_book:
    fig_caption: yes
    fig_crop: false
    df_print: kable
    includes:
      in_header: preamble.tex
    latex_engine: xelatex
    keep_tex: yes
fontsize: 11pt
linestretch: 1.5
toc-depth: 1
secnumdepth: 1
lof: True
lot: True
site: bookdown::bookdown_site
documentclass: book
classoption: openany
bibliography: [packages.bib, book.bib]
biblio-style: apalike
link-citations: True
geometry: "left=2.5cm, right=2.5cm, top=2.5cm, bottom=2.5cm"
---

    my bookdown.yml

    book_filename: "_Project2019"
delete_merged_file: true
before_chapter_script: "script1.R"
rmd_files: ["index.Rmd", "01-intro.Rmd", "02-EDA.Rmd", "03-method.Rmd"]
documentclass: book
language:
  label:
    fig: "Figure"
    tab: "Table"

    and my output.yml

    bookdown::pdf_book:
  latex_engine: xelatex
  citation_package: natbib
  keep_tex: yes
  fig_width: 6
  fig_height: 4.5
  fig_crop: false
  fig_caption: true
  df_print: kable

    Additionally, I'm using this as my preamble.tex, where all the \let\origfigure lines were just a solution to making fig.pos="h" work consistently I saw on here a while ago...

    \usepackage{booktabs}
\usepackage[none]{hyphenat}
\usepackage{float}
\usepackage[belowskip=-5pt,aboveskip=0pt]{caption}
\let\origfigure\figure
\let\endorigfigure\endfigure
\renewenvironment{figure}[1][2] {
    \expandafter\origfigure\expandafter[H]
} {
    \endorigfigure
}
\pagestyle{plain}

    I've already tried adding the caption package with belowskip=-5pt as you can see in this. I've also already tried a good amount of combinations of no spaces before/after each chunk but it does seem random - is there an option I'm missing in the code chunks themselves? I'm quite stuck!

    I don't really know how to make this problem replicable so I apologise for that, any ideas let me know

    Thanks in advance,
    James

  • How can I make the output of my function (several ggplot2 graphs) an html file (displaying those graphs)?

    I'm writing a personal use package which trains/tests models, and finally runs a myriad of LIME and DALEX explanations on them. I save these as their own ggplot2 objects (say lime_plot_1), and at the end of the function these are all returned to the global environment.

    However, what I would like to have happen is that, at the end of the function, not only would I have these graphs in the environment but a small html report would also be rendered - containing all the graphs that were made.

    I would like to point out that while I do know I could do this by simply using the function within an Rmarkdown or Rnotebook, I would like to avoid that as I plan on using it as an .R script to streamline the whole process (since I'll be running this with a certain frequency), and from my experience running big chunks in .Rmd tends to crash R.

    Ideally, I'd have something like this:

    s_plot <- function(...){

 1. constructs LIME explanations
 2. constructs DALEX explanations
 3. saves explanations as ggplot2 objects, and list them under graphs_list

 4. render graphs_list as an html file
}

    1, 2, and 3 all work but I haven't found a way to tackle 4. that doesn't include doing the whole process in a .Rmd file.

    EDIT: Thanks to @Richard Telford's and @Axeman's comments, I figured it out. Below is the function:

    s_render <- function(graphs_list = graphs_list, meta = NULL, cacheable = NA){

        currentDate <- Sys.Date()

    rmd_file <- paste("/path/to/folder",currentDate,"/report.Rmd", sep="")

    file.create(rmd_file)

    graphs_list <- c(roc_plot, prc_plot, mp_boxplot, vi_plot, corr_plot)

    c(Yaml file headers here, just like in a regular .Rmd) %>% write_lines(rmd_file)
    rmarkdown::render(rmd_file,
            params = list(
                    output_file = html_document(),
                    output_dir = rmd_file))}
  • Using \textsf{R} throws error in bookdown report, while it works fine in general rmarkdown

    I often use \textsf{R} in my markdown reports, when referring to the R programming language. See here for reference.

    This worked fine so far.

    Since I switched to bookdown, however, this throws an error:

    ! pdfTeX error (font expansion): auto expansion is only possible with scalable fonts. \AtBegShi@Output ...ipout \box \AtBeginShipoutBox \fi \fi l.1861

    Error: Failed to compile _main.tex. See https://yihui.name/tinytex/r/#debugging for debugging tips. See _main.log for more info. In addition: Warning message: running command '"pdflatex" -halt-on-error -interaction=batchmode "_main.tex"' had status 1 Please delete _main.Rmd after you finish debugging the error.

    Has anybody experienced this? What am I missing?