Comment tracer un seul point dans globejs()?

Question

Ceci est ma première question ici si désolé si je fais quelque chose de mal. Tout comme la question dit que je veux montrer un seul point dans mon globe 3D en utilisant globejs() dans R. Je crée une page avec dashboard(), et dans la boîte(), j'utilise leaflet et globejs() du paquet threejs . J'ai créé deux numericInput(), un pour lat et un pour long mais il refuse de fonctionner. J'ai essayé tant de manières mais ne fonctionne pas. D'une certaine façon arcs fonctionne très bien dans le data.frame j'ai créé, voici comment est maintenant, la méthode de base:

output$distPlot <- renderGlobe({ 
    ja<-c(input$arclat,input$arclong,input$arclat2,input$arclong2); 
    m<-data.frame(matrix(ja,ncol=4,nrow=1)); 
     globejs(bg="white",lat=input$lat,long=input$long,value=45,arcs=m,arcsColor = "#99aaff", atmosphere = input$icon, arcsHeight = 0.1,arcsOpacity = 1) 
}) 

J'espère que vous avez compris mon problème. Aidez-moi, s'il vous plaît.

Answer 1

Voilà comment vous pouvez tracer un point:

library(shiny) 
library(threejs) 
app <- shinyApp(
    ui = bootstrapPage(
    numericInput('long', 'longitude', 13.40), 
    numericInput('lat', 'latitude', 52.52), 
    globeOutput('plot') 
), 
    server = function(input, output) { 
    output$plot <- renderGlobe({ 
     globejs(
     lat=c(NA, input$lat), 
     long=c(NA, input$long), 
     pointsize=5, 
     value=100) 
    }) 
    } 
) 
runApp(app, launch.browser = TRUE) 

Il semble que globejs a besoin d'un vecteur d'une longueur minimale 2 dans les arguments de Borth lat et long - peut-être un bug?