trim_shinyApp: Trim code after shinyApp() call

In dgkf/scriptgloss: Functionality for creating static scripts from shiny apps

Description

Replaces shinyApp() call with NULL and removes all following code from a block of code. This is particularly useful to recreate the server state as none of the code after a shinyApp() call will be reached.

Usage

trim_shinyApp(x)

Arguments

x	code or expression to strip of code at the shinyApp() call

Value

the code or expression with all code at and beyond the shinyApp() call removed.

Examples

code <- quote({
  ui <- fluidPage(
    selectInput('x', 'x axis', choices = names(mtcars)),
    selectInput('y', 'y axis', choices = names(mtcars)),
    plotOutput('plot'),
  )
  
  srv <- function(input, output, session) {
    output$plot <- renderPlot({
      plot(x = mtcars[[input$x]],
        y = mtcars[[input$y]])
    })
  }

  shinyApp(ui, srv)

  print('this is some code after the shinyApp() call')
  
  a <- 1
  b <- 2
})

scriptgloss:::trim_shinyApp(code)



code2 <- quote({
  ui <- fluidPage(
    selectInput('x', 'x axis', choices = names(mtcars)),
    selectInput('y', 'y axis', choices = names(mtcars)),
    plotOutput('plot'),
  )
  
  srv <- function(input, output, session) {
    output$plot <- renderPlot({
      plot(x = mtcars[[input$x]],
        y = mtcars[[input$y]])
    })
  }

  a <- 1

  if (a == 1) {
    shinyApp(ui, srv)
  } else {
    print("This app never got launched!")
  }

  print('this is some code after the shinyApp() call')
  
  b <- 2
})

scriptgloss:::trim_shinyApp(code2)

dgkf/scriptgloss documentation built on June 8, 2019, 8:43 p.m.