Как создать панель поиска для запроса форматируемой таблицы в Shiny Dashboard - PullRequest
Новая
       12

Как создать панель поиска для запроса форматируемой таблицы в Shiny Dashboard

0 голосов
/ 04 февраля 2020

У меня не получается увидеть, как использовать пакет esquisse для поддержки функции панели поиска здесь. Я хочу иметь возможность фильтровать по имени. Например, если кто-то будет искать setosa, он вернет отформатированную таблицу с подмножеством. Я просматривал пакет esquisse, но не знал, как его интегрировать в Shiny Dashboard. похоже, мне нужно изменить вывод на сервере. Example of Dashboard with Dummy Data

library(tidyverse)
library(janitor)
library(shinydashboard)
library(shiny)
library(formattable)
library(golem)
library(esquisse)



#Loading Dummy Data 
data(iris)
summary(iris)
df <- iris
formattable(df)



ui <- dashboardPage(
  dashboardHeader(title = "Title"),
  dashboardSidebar(sidebarSearchForm(label = "Name", "searchText", "searchButton")),
  dashboardBody(formattableOutput("table"))
)

server <- function(input, output) {

  output$table <- renderFormattable({  formattable(df, align = c("l",rep("r", ncol(df))), list(
    `Indicator Name` = formatter("span", style = ~ style(color = "grey",font.weight = "bold")), 
    area(col = 2:length(df)) ~ color_tile("#DeF7E9", "#71CA97")))})


  }

shinyApp(ui = ui, server = server)
...