Report with Data and Plot

In microsamplingDesign: Finding Optimal Microsampling Designs for Non-Compartmental Pharmacokinetic Analysis

Data

library(DT)
DT::datatable(results$plot_data())

Plot

library(plotly)

if (is.null(input$plot_submit))
  return(NULL)

if (input$plot_submit == 0)
  return(NULL)  

marginList <- list(
    l = input$plot_marginL,
    r = input$plot_marginR,
    t = input$plot_marginT,
    b = input$plot_marginB)


if (results$plot_is3D()) {

  results$plot_view() %>% 
      layout(scene = list(xaxis = list(title = input$plot_xLabel), 
              yaxis = list(title = input$plot_yLabel), 
              zaxis = list(title = input$plot_zLabel)), 
          title = input$plot_title, showlegend = input$plot_legend,
          margin = marginList)  

} else {

  results$plot_view() %>% 
      layout(xaxis = list(title = input$plot_xLabel), 
          yaxis = list(title = input$plot_yLabel), 
          title = input$plot_title, showlegend = input$plot_legend,
          margin = marginList)  

}

microsamplingDesign documentation built on Oct. 13, 2021, 5:10 p.m.