R-Shiny 服务器功能不起作用。我收到错误消息“找不到对象”

Question

我的 shinyapp 的服务器部分有 2 个几乎相同的反应函数。好吧，不止 2 个，但那些描述了问题：

  ventas_tbl_react <- reactive({

    DF_react() %>%
      select(Periodo, tenant_id, `ventas | valor`) %>%
      group_by(tenant_id) %>%
      mutate(`vs Promedio` = round(`ventas | valor` /
                                   mean(`ventas | valor`, na.rm = T) - 1,
                                   digits = 2)) %>%
      ungroup() %>%
      group_by(.data = ., Periodo) %>%
      summarise(`vs Promedio` = mean(`vs Promedio`, na.rm = T)) %>%
      ungroup()

  })


  clientes_tbl_react <- reactive({

    DF_react() %>%
      select(Periodo, tenant_id, `cantidad de clientes`) %>%
      group_by(tenant_id) %>%
      mutate(`vs Promedio` = round(`cantidad de clientes` /
                                   mean(`cantidad de clientes`, na.rm = T) - 1,
                                   digits = 2)) %>%
      ungroup() %>%
      group_by(.data = ., Periodo) %>%
      summarise(`vs Promedio` = mean(`vs Promedio`, na.rm = T)) %>%
      ungroup()

  })

我尝试创建一个函数，这样我就不会一遍又一遍地重复相同的代码：

tbl_react_funct <- function(var) {

    DF_react() %>%
      select(Periodo, tenant_id, var) %>%
      group_by(tenant_id) %>%
      mutate(`vs Promedio` = round(var / mean(var, na.rm = T) - 1,
                                   digits = 2)) %>%
      ungroup() %>%
      group_by(Periodo) %>%
      summarise(`vs Promedio` = mean(`vs Promedio`, na.rm = T)) %>% 
      ungroup()

  }


  ventas_tbl_react <- reactive({

    tbl_react_funct(var = `ventas | valor`)

  })

我得到了这个

ERROR: object 'ventas | valor' not found

。我也尝试创建另一个参数（数据）但它没有用。