Searching for "once upon a time"
Checking if devtools is installed…
devtools is installed, skipping installation…
Loading devtools
Checking if tRakt is installed…
tRakt is installed, skipping installation…
Loading tRakt
Checking if shiny is installed…
shiny is installed, skipping installation…
Loading shiny
Checking if ggvis is installed…
ggvis is installed, skipping installation…
Loading ggvis
Checking if ggplot2 is installed…
ggplot2 is installed, skipping installation…
Loading ggplot2
Checking if rmarkdown is installed…
rmarkdown is installed, skipping installation…
Loading rmarkdown
Checking if plyr is installed…
plyr is installed, skipping installation…
Loading plyr
Checking if shinythemes is installed…
shinythemes is installed, skipping installation…
Loading shinythemes
Listening on http://127.0.0.1:51232
is.null(query_parsed$show):
TRUE
query_parsed$show is ''
Activate. url_show_query is ''
TRUE
Warnung: All formats failed to parse. No formats found.
Getting once-upon-a-time-1969
Warnung: All formats failed to parse. No formats found.
Warnung in max(show.episodes$season) :
kein nicht-fehlendes Argument für max; gebe -Inf zurück
Warnung: Unhandled error in observer: Resultat wäre zu langer Vektor
observe({
if (!(isActive())) {
return(NULL)
}
if (input$btn_scale_y_range && input$btn_scale_y_variable !=
"rating") {
updateCheckboxInput(session, inputId = "btn_scale_y_range",
value = FALSE)
}
else if (input$btn_scale_y_zero && input$btn_scale_y_variable ==
"rating") {
updateCheckboxInput(session, inputId = "btn_scale_y_zero",
value = FALSE)
}
show <- isolate(show())
if (is.null(show)) {
return(NULL)
}
label_x <- names(btn.scale.x.choices[btn.scale.x.choices ==
input$btn_scale_x_variable])
label_y <- names(btn.scale.y.choices[btn.scale.y.choices ==
input$btn_scale_y_variable])
var_x <- input$btn_scale_x_variable
var_y <- input$btn_scale_y_variable
plot <- show$episodes %>% ggvis(x = as.name(var_x), y = as.name(var_y),
fill = ~season)
plot <- plot %>% layer_points [... truncated]