БА
Size: a a a
БА
IT
IT
JS
АК
EP
БА
function(input, output, session){
# делаем запрос в таблицу
table <- reactive({
table <- as_sheets_id("1JJ6TJ5312mzeaQrX3152231oaXn2NZ4eebtXajw9DaS0") %>%
sheets_read("Portfolio")
})
# колдунство неистовое
choices <- reactive({
unique(table()$currency)
})
observe({
updateSelectInput(session, "currency", choices = choices())
})
# фильтруем данные
table2 <- reactive({
table() %>% filter(currency == input$currency)
})
# выводим таблицу в ui
output$stocks <- renderDataTable({
datatable(table2(),options = list(
dom = 't',
pageLength = 8,
lengthMenu = c(5, 10, 15, 20)
)
)
})
ЕТ
AS
IT
А
А
IT
ЕТ
А[
А
АК
ЕТ
EP
function(input, output, session){
# делаем запрос в таблицу
table <- reactive({
table <- as_sheets_id("1JJ6TJ5312mzeaQrX3152231oaXn2NZ4eebtXajw9DaS0") %>%
sheets_read("Portfolio")
})
# колдунство неистовое
choices <- reactive({
unique(table()$currency)
})
observe({
updateSelectInput(session, "currency", choices = choices())
})
# фильтруем данные
table2 <- reactive({
table() %>% filter(currency == input$currency)
})
# выводим таблицу в ui
output$stocks <- renderDataTable({
datatable(table2(),options = list(
dom = 't',
pageLength = 8,
lengthMenu = c(5, 10, 15, 20)
)
)
})
AS