Arhn - архитектура программирования

Блестящие информационные панели

Итак, у меня есть панель инструментов в Shiny. Это просто простая таблица, которая выглядит как [изображение, найденное по этой ссылке] [1] (извините, что я не могу дать вам что-то более воспроизводимое. Не знаю, как бы я это сделал.)

r shiny shinydashboard shiny-server
03.08.2016

Ответы:


1

Работающее блестящее приложение:

ui.R

    library(shiny)
    library(DT)
    library(htmltools)

    fluidPage(
            title = 'DataTables Information',
            h1('A client-side table'),
            fluidRow(
                    column(12, 
                           selectInput("speciesSelector", 
                                       "Select species", 
                                       choices = c("All", levels(iris$Species)), 
                                       selected = "All"),
                           DT::dataTableOutput('iris')
                           )
            )
    )

сервер.R

    library(shiny)
    library(DT)
    library(htmltools)
    sketch <- htmltools::withTags(table(
            class = "display",
            style = "bootstrap",
            tableHeader(c("ID", colnames(iris))),
            tableFooter(c("ID", colnames(iris)))
    ))

    shinyServer(function(input, output, session) {
            data <- reactive({
                    data <- iris
                    if (input$speciesSelector != "All") {
                            data <- data[data$Species == input$speciesSelector,]
                    }
                    data
            })        

            # render the table (with row names)
            output$iris = DT::renderDataTable(data(), 
                                              container = sketch, 
                                              server = FALSE,  
                                              caption = "Column sum example", 
                                              filter = "top",  options = list(footerCallback = JS(
                                                    "function( tfoot, data, start, end, display ) {",
                                                    "var api = this.api(), data;",
                                                    "total = api.column( 4, { page: 'current'} ).data().reduce( function ( a, b ) {return a + b;} )",
                                                    "total1 = api.column( 4, { search:'applied'} ).data().reduce( function ( a, b ) {return a + b;} )",
                                                    "$( api.column( 4 ).footer() ).html(total.toFixed(2) + ' / ' + total1.toFixed(2));",
                                                    "}")))
    })
04.08.2016
  • Должен ли он быть включен в мой файл server.R или полностью заменить его? 04.08.2016
  • Это должно быть включено в файл server.R в часть DT::renderDataTable, скопируйте код, начинающийся со скобки после ключевого слова datatable. Определение таблицы (эскиз) может быть в файле server.R, я поместил его вне функцииshininServer. Добавьте параметр server = FALSE в вызов DT::renderDataTable. На данный момент мне не удалось заставить его работать с параметром server = TRUE. 05.08.2016
  • Beakovic: Я пробовал, но получилось то, чего я не искал. Я помещаю код выше и полученную страницу. 12.08.2016
  • @wizkids121, хорошо, сегодня я приведу полный пример 12.08.2016
  • @wizkids121 Я отредактировал свой ответ, включив в него работающее приложение Shiny, использующее набор данных Iris. Позвольте мне знать, если это помогает. 12.08.2016
  • @wizkids121 что касается раскрывающегося списка, переменная marketing_pro_name должна быть фактором, я рассмотрю 1. проблему. 12.08.2016
  • Часть, в которой вы определяете таблицу (переменная эскиза), изменяет определение нижнего колонтитула таблицы на tableFooter(c(ID, colnames(BreakdownByRep))) 12.08.2016
  • @wizkids121 просто для ясности, вы хотели бы иметь итоги для каждого столбца? 12.08.2016
  • Давайте продолжим обсуждение в чате. 12.08.2016
    • Новые материалы
    Коллекции публикаций по глубокому обучению
    Последние пару месяцев я создавал коллекции последних академических публикаций по различным подполям глубокого обучения в моем блоге https://amundtveit.com - эта публикация дает обзор 25..
    Представляем: Pepita
    Фреймворк JavaScript с открытым исходным кодом Я знаю, что недостатка в фреймворках JavaScript нет. Но я просто не мог остановиться. Я хотел написать что-то сам, со своими собственными..
    Советы по коду Laravel #2
    1-) Найти // You can specify the columns you need // in when you use the find method on a model User::find(‘id’, [‘email’,’name’]); // You can increment or decrement // a field in..
    Работа с временными рядами спутниковых изображений, часть 3 (аналитика данных)
    Анализ временных рядов спутниковых изображений для данных наблюдений за большой Землей (arXiv) Автор: Рольф Симоэс , Жильберто Камара , Жильберто Кейрос , Фелипе Соуза , Педро Р. Андраде ,..
    3 способа решить квадратное уравнение (3-й мой любимый) -
    1. Методом факторизации — 2. Используя квадратичную формулу — 3. Заполнив квадрат — Давайте поймем это, решив это простое уравнение: Мы пытаемся сделать LHS,..
    Создание VR-миров с A-Frame
    Виртуальная реальность (и дополненная реальность) стали главными модными терминами в образовательных технологиях. С недорогими VR-гарнитурами, такими как Google Cardboard , и использованием..
    Демистификация рекурсии
    КОДЕКС Демистификация рекурсии Упрощенная концепция ошеломляющей О чем весь этот шум? Рекурсия, кажется, единственная тема, от которой у каждого начинающего студента-информатика..