Определить подтаблицу dplyr как функцию вместо таблицы - PullRequest
Новая
       18

Определить подтаблицу dplyr как функцию вместо таблицы

0 голосов
/ 11 февраля 2019

Я создаю блестящее приложение и хочу показать некоторые метрики на главной странице панели инструментов.

У меня есть таблица с продуктами и столбцами: row_names (работает как ID), name (название продукта).

В некоторой части кода я делаю запрос dplyr в рамках реактивной функции, где я хочу отфильтровать таблицу по продукту, выбранному пользователем в прокручивающемся меню внизу на боковой панелимое приложение.Я могу сделать это меню прокрутки вниз, но когда я делаю запрос и запускаю приложение, оно говорит: Ошибка: не удалось найти функцию 'res', я не понимаю, потому что res должна быть фильтрованной таблицей, а не функцией.

Я могу предоставить часть пользовательского интерфейса при необходимости, но я думаю, что все в порядке 

# Use purrr's split() and map() function to create the list
# needed to display the name of the product but pass its
# row_name code as the value
products_list <- products %>%

  collect() %>%

  split(.$name) %>%

  map(~ .$row_names)

# UI part here but I think its not relevant  

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

  tab_list <- NULL

  base_products <- reactive({

    res <- products %>%

      filter(row_names == input$product) %>%

    res

  })

output$total_products <- renderValueBox({

    # The following code runs inside the database.

    # pull() bring the results into R, which then

    # it's piped directly to a valueBox()

    base_products() %>%

      tally() %>%

      pull() %>%

      as.integer() %>%

      valueBox(subtitle = "Number of Products")

  })

Основное вдохновение приходит по этой ссылке: https://db.rstudio.com/best-practices/dashboards/

...