Defunciones <- function(Nivel){
if (Nivel==1) {shinyAppDir(system.file("INEGI/Defun", package="INEGI"))}
else if (Nivel==2) {shinyAppDir(system.file("INEGI/Pack_Experto", package="INEGI"))}
}
#.FdeDatos<-function(){tabPanel("Datos",
# h4("Tabla de c\u00f3digos"),
# dataTableOutput('tabla1'),
# tags$hr(),
# h4("Tabla de Datos"),
# tableOutput('tabla2')
#)}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.