请教shiny下如何用Remap?没有报错，但是一片白。。

[ashen001]

如图: 文字下面没有显示地图。。

ui.R tabPanel("MAP", helpText("map test."), REmapOutput("remapp") )

Server.R output$remapp <-renderREmap({ remapB(center = c(104.114129,37.550339), zoom = 5, color = "Bright", title = "test", subtitle = "test") } )

[ashen001]

ui.R下试了plotOutput 也不行。麻烦各位了

[maliang1202]

请问这个问题解决了吗？

[Lchiffon]

@ashen001 你的代码有问题吧？ 能给段可执行的代码么？

[Lchiffon]

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(REmap)

# Define UI for application that draws a histogram
ui <- fluidPage(
   
   # Application title
   titlePanel("Old Faithful Geyser Data"),
   
   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),
      
      # Show a plot of the generated distribution
      mainPanel(
         REmapOutput("remapp")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
   
   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)
      
      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
   
   output$remapp <-renderREmap({
     remapB(center = c(104.114129,37.550339),
            zoom = 5,
            color = "Bright",
            title = "test",
            subtitle = "test")
   }
   )
}

# Run the application 
shinyApp(ui = ui, server = server)