Ich dachte, es wäre wirklich cool, plotGoogleMaps in einer glänzenden App zu verwenden, um räumliche Daten mithilfe von R dynamisch zu analysieren und anzuzeigen. Ich habe noch nie ein Paket verwendet (sie sind relativ neu) und habe nicht viel Programmiererfahrung, also habe ich angefangen mit die Tutorials und Beispiele für jeden und versuchte dann, sie zusammen zu pürieren.

Ich kann alle einzelnen Elemente des Codes zum Laufen bringen, aber beim Ausführen der App wird die Google Map nicht angezeigt. Ich vermute, es hat etwas mit dem Versuch von plotGoogleMaps zu tun, in einem Browser zu zeichnen, und dem glänzenden Versuch, den Plot in einem Browser zu rendern, aber ich weiß nicht, wie ich das beheben kann. Ich zog den größten Teil des glänzenden Codes ausdas glänzende Tutorial Inputs & Outputs und folgte derplotGoogleMaps Tutorial

Testcode:

#load packages and data
library(shiny)
library(plotGoogleMaps)
data(meuse)

#convert data frame to SpatialPointDataFrame and set 
coordinates(meuse)<-~x+y
proj4string(meuse) <- CRS('+init=epsg:28992')

#will need to select column name for app, maybe not best way to do this, 
#but seems to work
formulaText<-paste('zinc')

#plot data on Google map, opens browser and works
mpgPlot <- plotGoogleMaps(meuse, zcol=formulaText)

ui.R

library(shiny)

# Define UI for meuse test
shinyUI(pageWithSidebar(

    # Application title
    headerPanel("Meuse Test"),

    # Sidebar with controls to select the variable to plot on map
    sidebarPanel(
        selectInput("variable", "Variable:",
                                choices=list("Zinc" = "zinc", 
                                         "Lead" = "lead", 
                                         "Copper" = "copper"), 
                                selected="Zinc")

    ),

    # Show the caption and plot of the requested variable on map
    mainPanel(
        plotOutput("mapPlot")
    )
))

server.R

library(shiny)
library(plotGoogleMaps)

data(meuse)
coordinates(meuse)<-~x+y
proj4string(meuse) <- CRS('+init=epsg:28992')

# Define server logic required to plot various variables on map
shinyServer(function(input, output) {

    # Compute the forumla text in a reactive expression since it is 
    # shared by the output$mapPlot ?I think I still need to do this...
    formulaText <- reactive({
#paste the input name in so it follows argument format for plotGoogleMaps?
#tried without, don't think it is probelm, works with test code...
        paste(input$variable)
    })


    # Generate a plot of the requested variable against mpg and only 
    # include outliers if requested
    output$mapPlot <- renderPlot({
        plotGoogleMaps(meuse, zcol=formulaText)
#also tried to specify alternative arguments like add=TRUE, 
#filename='mapPlot.htm', openMap=FALSE
    })
})

Ich verstehe, dass sowohl shiny als auch plotGoogleMaps ziemlich neu sind, und ich habe einige Vorschläge zum Posten von Fragen in der glänzenden Google-Gruppe gesehen, aber ich möchte nicht doppelt posten, und StackOverflow ist meine Adresse für Antworten. Endlich möchte ich auch einen kleinen Beitrag für eine Community leisten, die mir bisher sehr geholfen hat! Wenn dies nur ein mieser Ansatz ist, ich bin offen für Alternativen, ich checke jetzt googleVis aus ...

Danke, Alex

PS-

sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United States.1252 
[2] LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

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

other attached packages:
[1] googleVis_0.4.3    plotGoogleMaps_2.0 maptools_0.8-25   
[4] lattice_0.20-15    foreign_0.8-54     rgdal_0.8-10      
[7] sp_1.0-11          shiny_0.6.0       

loaded via a namespace (and not attached):
[1] bitops_1.0-5   caTools_1.14   digest_0.6.3   httpuv_1.0.6.3
[5] Rcpp_0.10.4    RJSONIO_1.0-3  tools_3.0.1    xtable_1.7-1 

PPS: Ich habe gelesendieser Beitrag mehrmals vor dem posten, aber jetzt bin ich misstrauisch meine antwort ist da. Entschuldigung, wenn die Frage doppelt ist. Ich denke, es ist etwas mithtmlOutput()...?htmlOutput ist spärlich ... ich fühle mich dicht ...