knitr::opts_chunk$set(echo = FALSE) dsl_sub <- subset(dsl, DIM == dim && funcId == fid && algId %in% algs) name <- get_data_id(dsl_sub) tryCatch( { rt_min <- as.numeric(REG$FCEPlot.Min[name]) if (is.na(rt_min)) rt_min <- NULL rt_max <- as.numeric(REG$FCEPlot.Max[name]) if (is.na(rt_max)) rt_max <- NULL }, error = function(e) { fv_min <- NULL fv_max <- NULL } ) p <- Plot.FV.Single_Func(dsl_sub, RTstart = rt_min, RTstop = rt_max, show.CI = input$FCEPlot.show.CI, show.mean = input$FCEPlot.show.mean, show.median = input$FCEPlot.show.median, scale.xlog = isolate(input$FCEPlot.semilogx), scale.ylog = isolate(input$FCEPlot.semilogy)) save_plotly(p, paste0('FCE_single_F', fid, '-', dim, 'D.pdf'), 'pdf', width = 1000, height = 500)
r paste(fid)
on r paste(dim)
Dr}, results='asis', fig.align='center', fig.cap="TEsting", fig.width=500, fig.height=300, fig.pos='!hbt'}
include_graphics(paste0('FCE_single_F', fid, '-', dim, 'D.pdf'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.