Nothing
knitr::opts_chunk$set(echo = FALSE) dsl_sub <- subset(dsl, DIM == dim && funcId == fid && algId %in% algs) name <- get_data_id(dsl_sub) rts <- get_runtimes(dsl_sub) tryCatch( { rttarget <- as.numeric(REG$FCEPDF.Bar.Runtime[name]) if (is.null(rttarget) || is.na(rttarget)) rttarget <- median(rts) }, error = function(e) { rttarget <- median(rts) } ) p <- Plot.FV.PDF(dsl_sub, rttarget, show.sample = input$FCEPDF.Bar.Samples, scale.ylog = input$FCEPDF.Bar.Logy ) save_plotly(p, paste0('FV_PMF_F', fid, '-', dim, 'D.pdf'), 'pdf', width = 1000, height = 500)
r paste(fid)
on r paste(dim)
D at runtime r paste(rttarget)
r}, results='asis', fig.align='center', fig.cap="TEsting", fig.width=500, fig.height=300, fig.pos='!hbt'}
include_graphics(paste0('FV_PMF_F', fid, '-', dim, 'D.pdf'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.