‘html’ is not a valid field or method name for reference class “Points”

[ghost]

Hello

This is a great package however I'm trying to run your asteroids example that you posted with RShiny and I got this error ‘html’ is not a valid field or method name for reference class “Points”. I'm running chrome.. When I run the clickme function from command line it works fine...

thanks
steve

Here's my session info:
Platform: x86_64-apple-darwin10.8.0 (64-bit)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats graphics grDevices utils datasets methods base

other attached packages:
[1] data.table_1.9.2 rjson_0.2.13 stringr_0.6.2 knitr_1.6 yaml_2.1.11 clickme_0.4.0 ggplot2_0.9.3.1
[8] rrdf_2.0.2 rrdflibs_1.3.0 rJava_0.9-6 shiny_0.10.0 rCharts_0.4.5

[nachocab]

Hi, sorry for the delay. I've been putting clickme in the back burner for a while.

Is this the code you're using?

setwd("~/Downloads/stats_seminar_talk_2014") # make sure your current directory points to the folder that contains the shiny_asteroids folder
library(shiny)
library(ggplot2)
runApp("shiny_asteroids")

I just tried it again and it works for me, can you run traceback() after you get the error?

[ghost]

Hi Nacho

No problem... so here's the code I modified, the ggplot renders fine but the click me fires that error... I tried switching dirs... but still didn't work... In the RShiny panel, I get that error message but it does open up a new tab in chrome with the data via $show

server.R

shinyServer(function(input, output, session) {
library(ggplot2)
library(clickme)
library(scales)
asteroids_data <- read.table("../asteroids_data.txt", sep = "\t", header = TRUE)
asteroids <- reactive({
slider_condition <- asteroids_data$date >= input$date[1] &
asteroids_data$date <= input$date[2] &
asteroids_data$distance >= input$distance[1] &
asteroids_data$distance <= input$distance[2]
asteroids_data[slider_condition, ]
})

output$ggplot <- renderPlot({
p <- ggplot(asteroids(), aes(date, distance)) +
geom_point(aes(size = diameter, color = velocity)) +
scale_size(range = c(2, 20)) + theme_bw()
print(p)
})

output$clickme <- renderChart({
x <- asteroids()
p <- clickme("points",x$date, x$distance,
names = x$name,
radius = rescale(x$diameter, c(1,100)),
extra = list("diameter (meters)" = x$diameter,
"velocity (km/s)" = x$velocity),
title = "Near Earth Objects", subtitle = "(as reported by the NASA NEO group)",
xlab = "Date (years)", ylab = "Distance (Lunar distances)",
xlim = c(2000, 2100), ylim = c(0,5),
opacity = .8,
out_width = 1200, out_height = 600)$show() # you only need show() if you load this through source()
return(p)
})

})

ui.R

shinyUI(pageWithSidebar(
headerPanel("Asteroid flybys"),
sidebarPanel(
sliderInput("distance", "Distance (LD)", min = 0, max = 5, step = .1, value = c(0,5)),
sliderInput("date", "Year", min = 2000, max = 2100, value = c(2000,2100))
),
mainPanel(
tabsetPanel(
tabPanel("ggplot", plotOutput("ggplot")),
tabPanel("clickme",plotOutput("clickme"))
)
)
))