반짝 반짝 빛나는 CSV fileInput에 반응하는 전단지지도

Question

CSV 파일 입력에서 포인트를 그릴 수있는 간단한 반짝이는 앱이 있습니다. 현재 파일을 반짝이는 앱에 업로드하면지도가 아무 것도하지 않습니다. 전단지 맵이 업로드되는 파일에 반응하지 않기 때문이라고 생각합니다. 이 문제를 어떻게 해결할 수 있습니까?

아래 코드를 참조하십시오. 샘플 데이터는 HERE입니다.

library(shiny) 
library(shinydashboard) 
library(leaflet) 
library(dplyr) 
library(htmltools) 

shinyApp(
    ui <- fluidPage(

    titlePanel("eBird Visualizer"), 
    fileInput("MyEBirdData_in", "MyEBirdData", buttonLabel = "Upload a .csv", 
       placeholder = "No File Selected...", width = "255px", 
       accept = ".csv"), 
    leafletOutput("myMap") 
), 

    server = function(input, output) { 

    output$contents <- renderTable({ 

     inFile <- input$MyEBirdData_in 
     if (is.null(inFile)) 
     return(NULL) 
     myData = read.csv(inFile$datapath, header = input$header) 

     df0 = data.frame(myData$Submission.ID, myData$Latitude, myData$Longitude) 
     df = unique(df0) 
     names(df)[2] = 'latitude' 
     names(df)[3] = 'longitude' 

    }) 

    output$myMap = renderLeaflet({ 

     leaflet(data = df) %>% addProviderTiles(providers$CartoDB.Positron) 
    }) 
    } 
) 

Answer 1

은 UI에 표시 할 반응 테이블을 만드는 데 사용됩니다. 원하는 것은 다른 반응식에서 업데이트를 트리거하는 데 사용할 수있는 변수를 갖는 것입니다.이 경우 reactive 또는 reactiveValue을 사용해야합니다 (예 : here 참조). 페이지 아래 2/3, 좋은 예를 들어 reactive을 먼저 소개합니다.

또한 현재 사용자는 정의되지 않은 input$header을 참조하고 있습니다. 따라서 csv를 업로드 할 때 오류가 발생합니다.

그래서 당신이 뭔가를 할 수 있습니다 :

library(shiny) 
library(shinydashboard) 
library(leaflet) 
library(dplyr) 
library(htmltools) 

shinyApp(
    ui <- fluidPage(

    titlePanel("eBird Visualizer"), 
    fileInput("MyEBirdData_in", "MyEBirdData", buttonLabel = "Upload a .csv", 
       placeholder = "No File Selected...", width = "255px", 
       accept = c(".csv","text/csv")), 
    leafletOutput("myMap") 
), 

    server = function(input, output) { 

    my_table <- reactive({ 

     inFile <- input$MyEBirdData_in 
     if (is.null(inFile)) 
     return(NULL) 

     myData = read.csv(inFile$datapath) 

     df0 = data.frame(myData$Submission.ID, myData$Latitude, myData$Longitude) 
     df = unique(df0) 
     names(df)[2] = 'latitude' 
     names(df)[3] = 'longitude' 
     print(df) 
     return(df) 
    }) 

    output$myMap = renderLeaflet({ 
     if(is.null(my_table())) 
     { 
     return(leaflet() %>% addProviderTiles(providers$CartoDB.Positron)) 
     } 
     else 
     { 
     leaflet(data = my_table()) %>% addProviderTiles(providers$CartoDB.Positron) %>% addMarkers() 
     } 
    }) 
    } 
)