shinyを使用してreadORGでtextInputを使用する方法

Question

シェイプファイルを読み込むには、次のコマンドを使用します。readOGR（infile $ datapath、input $ text1）ここで、input $ text1はuiで定義されたShiny textInput .R。これどうやってするの？

Minimal Code: 
library(shiny) 
library(caret) 
library(sp)    
library(rgdal)   
library(raster) 
library(rgeos) 
library(ggplot2) 
library(RStoolbox) 

setwd("C:/Users/User1/MyTestData") 

shinyApp(
    ui = fluidPage(
    navbarPage(
     "Example", 
     tabPanel("Option1", 

       sidebarPanel(
       textInput("testfile1", "Input Test File","test_file"), 
       verbatimTextOutput("value1") 
       ) 
    ) 
    ) 
), 
    server <- function (input, output, session){ 
    # Load specified file 
    filedata1 <- reactive({ 
     infile1 <- input$FileInput 
     if (is.null(infile1)) { 
     # No upload 
     return(NULL) 
     } 
     myfile <- readOGR(infile1$datapath, infile1$name) # <-this doesn't work?? 
     #myfile <- readOGR(dirname(infile1$datapath), infile1$name) 
    }) 

エラーメッセージ：.localの（X、Y、...）で エラー：引数yからエクステントオブジェクトを取得できません

Answer 1

これはあなたの "でシェイプファイルをプロットし、最小限の例ですMyTestData」フォルダ名前にtextInputで（ 『.shpの』拡張子を除く）を入力するとき：

library(shiny) 
library(rgdal) 
library(ggplot2) 
library(sp)    

shinyApp(
    ui = fluidPage(
    textInput("FileInput", "Input Test File"), 
    plotOutput("map")), 
    server <- function (input, output, session){ 
    # Load specified file 
    filedata <- reactive({ 
     infile <- input$FileInput 
     if (!is.null(infile) && infile!="") 
     readOGR("C:/Users/User1/MyTestData", infile) 
    }) 
    output$map <- renderPlot({ 
     data <- filedata(); 
     if(!is.null(data)) 
     plot(data)}) 
    })