Сохранение и отображение данных на основе выбора строки из существующего источника данных
Мне нужно отобразить данные в приложении r-блестящий и на основе выбора строки пользователя (желательно с помощью флажка), а также нажав кнопку подтверждения выборазагрузить и отобразить данные ниже в других базах данных (под основной таблицей)
library(shiny)
library(ggplot2) # for the diamonds dataset
ui <- fluidPage(
title = "Examples of DataTables",
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Global Library", DT::dataTableOutput("mytable1")),
tabPanel("mtcars", DT::dataTableOutput("mytable2")),
tabPanel("iris", DT::dataTableOutput("mytable3"))
)
)
)
library(shiny)
# Define server logic required to draw a histogram
server <- function(input, output) {
# choose columns to display
output$mytable1 <- DT::renderDataTable({
DT::datatable(data1, options = list(orderClasses = TRUE ,autoWidth=TRUE),filter = 'top')
})
# sorted columns are colored now because CSS are attached to them
output$mytable2 <- DT::renderDataTable({
DT::datatable(mtcars, options = list(orderClasses = TRUE))
})
# customize the length drop-down menu; display 5 rows per page by default
output$mytable3 <- DT::renderDataTable({
DT::datatable(iris, options = list(lengthMenu = c(5, 30, 50), pageLength = 5,autoWidth=TRUE))
})
}
Мне нужно добавить кнопку, называемую сохранить детали, под таблицей на первой вкладке, и мне нужно создать и отобразить выбранные выходные данные под кнопкой, чтобыотобразить выбранные выходные данные из первой таблицы.
Я новичок в stackverflow, помогите, пожалуйста, игнорируйте дополнительный код