Show how to use system.file in Rstudio Addin per http://stackoverflow.com/questions/38642524/copy-rmd-file-included-in-a-rstudio-addin-package-to-a-user-defined-directory/

testAddIn.R

test <- function() {

ui <- miniPage(
  gadgetTitleBar("Test"),
  miniContentPanel(
    uiOutput("test")
    )
  )
  
  server <- function(input,output,session) {
  output$test <- renderUI({
    HTML(as.character(system.file(package="shiny")))
    })
    }
    
    runGadget(ui,server)
}