library(shiny)
navbarPage(
title = 'Interaction with Table Cells', id = 'x0',
tabPanel('Table', DT::dataTableOutput('x1')),
tabPanel('Plot', textInput('x2', 'Row ID'), plotOutput('x3'))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.