Shiny Datentabelle zeigt alle Daten mit Filter

Question

Ich kann eine Datentabelle in glänzend erstellen, die Daten für jeden einzelnen Büffel zeigt, aber ich kann nicht herausfinden, wie alle Buffalo-Daten zur gleichen Zeit angezeigt werden. Jede Hilfe wird geschätzt.

Beispieldaten:

cleanbuffalo <- data.frame(name = c("queen","toni","pepper"), longitude = c(31.8,32,33), latitude = c(-24,-25,-26))

Shiny UI:

shinyUI(navbarPage("Buffalo Migration", id ="nav", 
    tabPanel("Data", 
    fluidRow(
     column(3, 
     selectInput("allnamesbuffalo", "Buffalo", c("All Buffalo" = "all buffalo", vars)) 
     ) 
    ), 
     hr(), 
     DT::dataTableOutput("buffalotable") 
    ) 
) 
) 

Shiny Server:

shinyServer(function(input, output, session) { 
    observe({ 
    allnamesbuffalo <- if (is.null(input$allnamesbuffalo)) character(0) else  { 
      filter(cleanbuffalo, name %in% input$allnamesbuffalo) %>% 
     `$`('name') %>% 
     unique() %>% 
     sort() 
     } 
    }) 

    output$buffalotable <- DT::renderDataTable({ 
    df <- cleanbuffalo %>% 
     filter(
     cleanbuffalo$name == input$allnamesbuffalo, 
     is.null(input$allnamesbuffalo) | name %in% cleanbuffalo$name 
    ) 
     action <- DT::dataTableAjax(session,df) 

     DT::datatable(df, options = list(ajax = list(url = action)), 
        escape = FALSE) 
    }) 
}) 

Answer 1

Hier ist ein funktionierendes Beispiel. Beachten Sie, dass ich in Ihrem Datenrahmen stringsAsFactors=F hinzugefügt habe, andernfalls müssen Sie levels(cleanbuffalo$name) verwenden, um die Namen abzurufen.

library(shiny) 
library(dplyr) 

cleanbuffalo <- data.frame(name = c("queen","toni","pepper"), 
          longitude = c(31.8,32,33), 
          latitude = c(-24,-25,-26), stringsAsFactors = F) 

ui <- shinyUI(fluidPage(

    titlePanel("Example"), 

    sidebarLayout(
    sidebarPanel(
     selectInput("allnamesbuffalo", "Buffalo", c("all", cleanbuffalo$name)) 
    ), 

    mainPanel(
     dataTableOutput("buffalotable") 
    ) 
) 
)) 

server <- shinyServer(function(input, output, session) { 

    output$buffalotable <- renderDataTable({ 
    names <- NULL 
    if (input$allnamesbuffalo == "all") { 
     names <- cleanbuffalo$name 
    } else { 
     names <- input$allnamesbuffalo 
    } 
    filter(cleanbuffalo, name %in% names) 
    }) 

}) 

shinyApp(ui = ui, server = server)