Ошибка в eval (замена (expr), envir, enc) в Shiny R

Question

Я получаю следующую ошибку при попытке запустить приложение Shiny, которое я создаю. Ошибка:

Listening on http://........ 
Error in eval(substitute(expr), envir, enclos) : 
    incorrect length (0), expecting: 202 

Я моделировал базу своего приложения после примера приложения для исследователя кино. Данные передаются через CSV и представляют собой кадр длиной 202 строки.

UPDATE
После запуска с помощью отладчика я обнаружил, что фактическое выражение, которое вызывает ошибку обнаруживается в%> функции%. Ошибка возникает после того, как две следующие строки кода выполняются:

env[["_lhs"]] <- eval(lhs, parent, parent) 
result <- withVisible(eval(quote(`_fseq`(`_lhs`)), env, env)) 

На данный момент в коде переменные значения:

л.ш. = компании
родитель = окружающая среда
окр = Environment

Очевидно, что код ожидает мою фреймворк, но получает пустой набор. Причина неизвестна.

END UPDATE

КОНКРЕТНЫЕ ВОПРОС: Что я делаю не так и как это исправить?

мой файл server.R выглядит следующим образом:

library(shiny) 
library(dplyr) 
library(ggvis) 

all_dat = read.csv("data/company_data.csv") 

shinyServer(function(input, output, session) { 

companies <- reactive({ 
# Filter the clicks, views, opens 
clicks <- input$Clicks 
pageviews <- input$Pageviews 
opens <- input$Opens 
engage_value <- input$Engage_Value 
viewspermsg <- input$views_per_msg 
clickspermsg <- input$clicks_per_msg 
openspermsg <- input$opens_per_msg 

# Apply Filters 
d <- all_dat %>% 
    filter(
    Clicks >= clicks, 
    Pageviews >= pageviews, 
    Opens >= opens, 
    Engage_Value >= engage_value, 
    views_per_msg >= viewspermsg, 
    clicks_per_msg >= clickspermsg, 
    opens_per_msg >= openspermsg 
    ) %>% 
    arrange(Clicks) 

# Optional: filter by Dive 
if (input$Dive != "All") { 
    size <- paste0("%", input$Dive, "%") 
    d <- d %>% filter(Dive %like% dive) 
} 
# Optional: filter by Dive Family 
if (input$Family != "All") { 
    family <- paste0("%", input$Family, "%") 
    d <- d %>% filter(Family %like% family) 
} 
# Optional: filter by Industry 
if (input$Industry != "All") { 
    industry <- paste0("%", input$Industry, "%") 
    d <- d %>% filter(Industry %like% industry) 
} 
# Optional: filter by Dive Family 
if (input$Size != "All") { 
    size <- paste0("%", input$Size, "%") 
    d <- d %>% filter(Size %like% size) 
} 

d <- as.data.frame(d) 

d$Has_International <- character(nrow(d)) 
d$Has_International[d$Oscars == 0] <- "No" 
d$Has_International[d$Oscars >= 1] <- "Yes" 
#I don't know if I need this. 
d 
    }) 

    company_tooltip <- function(x) { 
if (is.null(x)) return(NULL) 
if (is.null(x$Unnamed..0)) return(NULL) 

all_dat <- isolate(companies()) 
company <- all_dat[all_dat$Unnamed..0 == x$Unnamed..0, ] 

paste0("<b>", company$Company, "</b><br>", 
    company$Industry, "<br>", 
    company$Size, " employees", "<br>", 
    company$Company_Type, "<br>", 
    round(company$Percent_New, digits=2), " % New Readers" 
) 
    } 

    #reactive labels and graph aspects 
    vis <- reactive({ 
    # Labels for axes 
    xvar_name <- names(axis_vars)[axis_vars == input$xvar] 
    yvar_name <- names(axis_vars)[axis_vars == input$yvar] 

# Normally we could do something like props(x = ~BoxOffice, y = ~Reviews), 
# but since the inputs are strings, we need to do a little more work. 
xvar <- prop("x", as.symbol(input$xvar)) 
yvar <- prop("y", as.symbol(input$yvar)) 

companies %>% 
    ggvis(x = xvar, y = yvar) %>% 
    layer_points(size := 50, size.hover := 200, 
       fillOpacity := 0.2, fillOpacity.hover := 0.5, 
       stroke = ~Has_International, key := ~Unnamed..0) %>% 
    add_tooltip(company_tooltip, "hover") %>% 
    add_axis("x", title = xvar_name) %>% 
    add_axis("y", title = yvar_name) %>% 
    add_legend("stroke", title = "International Presence", values = c("Yes", "No")) %>% 
    scale_nominal("stroke", domain = c("Yes", "No"), 
       range = c("orange", "#aaa")) %>% 
    set_options(width = 500, height = 500) 
    }) 

    vis %>% bind_shiny("plot1") 

}) 

Answer 1

Решение: В коде, где фильтры являются по настройке, все прописные имена переменных (вход $ нырять), а не имя переменной в верхнем регистре как это первоначально появляется в исходном кадре данных (ввод $ Dive). Поэтому измените ввод $ Dive на ввод $ dive.

Неправильный путь

# Optional: filter by Dive 
if (input$Dive != "All") { 
    size <- paste0("%", input$Dive, "%") 
    d <- d %>% filter(Dive %like% dive) 
} 

Правильный путь.

# Optional: filter by Dive 
if (input$dive != "All") { 
    size <- paste0("%", input$dive, "%") 
    d <- d %>% filter(Dive %like% dive) 
}