library(shiny) library(dplyr) df1 <- as.data.frame(cbind(1:100, 1:100)) df2 <- as.data.frame(cbind(100:200, 100:200)) df3 <- as.data.frame(cbind(200:300,

200:300))

#Клиентская часть
ui <- fluidPage(

#Название графика
titlePanel("Система управления"),

navbarPage(title = "Навигация",

#Панель навигации, поле "ИНСПЕКТОР ДАННЫХ"
tabPanel(title = "Инспектор данных",
selectInput(inputId = "DecectedDfInput",
label = "Выберите фрейм данных",
choices = c("Тут вариант с df1", "Тут вариант с df2", "Тут вариант с df3"),
multiple = FALSE),
dataTableOutput("DfOutput"),
value = "Инспектор данных",
icon = icon("glyphicon glyphicon-sunglasses", lib = "glyphicon")),

#Панель навигации, параметры панели навигации
id = "Navigation",
position = c("static-top"),
fluid = TRUE,
icon = NULL)
)

#Серверная часть
server <- function(input, output, session){

#Вывод таблицы данныз для инспектора данных
output$DfOutput = .... ???

}

shinyApp(ui = ui, server = server)

Если криво и совсем не думая, то как-то так. Но это совсем тупой вариант "на бегу": library(shiny) library(dplyr) df1 <- as.data.frame(cbind(1:100, 1:100)) df2 <- as.data.frame(cbind(100:200, 100:200)) df3 <- as.data.frame(cbind(200:300, 200:300)) #Клиентская часть ui <- fluidPage( #Название графика titlePanel("Система управления"), navbarPage(title = "Навигация", #Панель навигации, поле "ИНСПЕКТОР ДАННЫХ" tabPanel(title = "Инспектор данных", selectInput(inputId = "DecectedDfInput", label = "Выберите фрейм данных", choices = c("Тут вариант с df1", "Тут вариант с df2", "Тут вариант с df3"), multiple = FALSE), dataTableOutput("DfOutput"), value = "Инспектор данных", icon = icon("glyphicon glyphicon-sunglasses", lib = "glyphicon")), #Панель навигации, параметры панели навигации id = "Navigation", position = c("static-top"), fluid = TRUE, icon = NULL) ) #Серверная часть server <- function(input, output, session){ #Вывод таблицы данных для инспектора данных output$DfOutput <- renderDataTable({ req(input$DecectedDfInput) t_tag <- input$DecectedDfInput # browser() df <- mtcars if(t_tag == "Тут вариант с df1") df <- df1 if(t_tag == "Тут вариант с df2") df <- df2 if(t_tag == "Тут вариант с df3") df <- df3 df }) } shinyApp(ui = ui, server = server)