R блестящий файлВведите большие файлы - PullRequest
Новая
       14

R блестящий файлВведите большие файлы

0 голосов
/ 05 июля 2018

У меня есть некоторые проблемы с fileInput для R Shiny. Размер по умолчанию установлен на 5 МБ по умолчанию. Поскольку файлы, с которыми мне приходится работать, очень большие (> 50 ГБ), мне нужен только путь к данным и / или имя файла. К сожалению, fileInput хочет загрузить файл целиком или, по крайней мере, каким-то образом загружает файл и сообщает, что файл слишком велик после того, как я достиг предела в 5 МБ.

Как я могу только передать путь к своему приложению без загрузки файла?

ui.R 

library(shiny)

# Define UI ----
shinyUI(fluidPage(
h1("SAS Toolbox"),

tabsetPanel(
  tabPanel("SASFat",
     sidebarPanel(h2("Input:"),
        actionButton("runSASFat","Run Job",width="100%",icon("paper-plane"), 
        style="color: #fff; background-color: #337ab7; border-color: #2e6da4"),       

        wellPanel(
           #tags$style(".shiny-file-input-progress {display: none}"),
           fileInput("FEInp","Pfad FE input Deck:"), 
           fileInput("FERes","Pfad FE Results:") 
        ),
        wellPanel(
           checkboxGroupInput("options1","Auswertung:",c("Grundmaterial","Schweissnähte")),
           conditionalPanel(condition="$.inArray('Schweissnähte',input.options1) > -1", 
           sliderInput("filter", "Filter:", 0.75, min = 0, max = 1))
        ),
        wellPanel(
           radioButtons("solver", "Solver:", c("Ansys","Abaqus", "Optistruct")),
           conditionalPanel(condition="input.solver == 'Ansys'",selectInput("lic", "Lizenz",c("preppost","stba","meba"))) 
        ),
        wellPanel(
           checkboxGroupInput("options2","Optionen:",c("Schreibe LCFiles"))
        )
     ),
     mainPanel(br(),h2("Output:"),width="30%")
  ), 
  tabPanel("Nietauswertung"),
  tabPanel("Spannungskonzept EN12663")
  )
))

server.R 

# Define server logic ----
shinyServer(function(input, output) {
  observeEvent(input$runSASFat, {
    FEInp <- input$FEInp
    FERes <- input$FERes
    opt1 <- input$options1 
    opt2 <- input$options2
    filter <- input$filter
    solver <- input$solver
    lic <- input$lic

    write(c(FEInp$datapath,FERes$datapath,opt1,opt2,filter,solver,lic),"ghhh.inp")
    })
})

Заранее спасибо

Michael

Ответы [ 2 ]

0 голосов
/ 21 мая 2019

Спасибо за пример @MichaelBird. Я изменил ваш код, чтобы пользователи могли отменить запрос, не выбирая файл (ваше приложение упало после отмены):

Это, кстати, работает только на ПК, на котором размещено блестящее приложение. 

library(shiny)

ui <- fluidPage(
  titlePanel("Choosing a file example"),
  sidebarLayout(
    sidebarPanel(
      actionButton("filechoose",label = "Pick a file")
    ),
    mainPanel(
      textOutput("filechosen")
    )
  )
)

server <- function(input, output) {

  path <- reactiveVal(value = NULL)

  observeEvent(input$filechoose, {

    tryPath <- tryCatch(
      file.choose()
      , error = function(e){e}
    )

  if(inherits(tryPath, "error")){
    path(NULL)
  } else {
    path(tryPath)
  }

  })

  output$filechosen <- renderText({
    if(is.null(path())){
      "Nothing selected"
    } else {
      path()
    }
  })

}

shinyApp(ui = ui, server = server)

Альтернативным способом было бы увеличение максимального размера файла для загрузки:

По умолчанию Shiny ограничивает загрузку файлов до 5 МБ на файл. Вы можете изменить этот предел с помощью опции блестящей.maxRequestSize. Например, добавление параметров (блестящий.maxRequestSize = 30 * 1024 ^ 2) в верхней части приложения.R увеличит лимит до 30 МБ.

См. Эту статью RStudio .

0 голосов
/ 05 июля 2018

Вот пример использования file.choose() в блестящем приложении для получения локального пути к файлу (и, следовательно, имени файла): 

library(shiny)


ui <- fluidPage(

   # Application title
   titlePanel("Choosing a file example"),


   sidebarLayout(
      sidebarPanel(
        actionButton("filechoose",label = "Pick a file")
      ),

      mainPanel(
         textOutput("filechosen")
      )
   )
)


server <- function(input, output) {

  path <- reactiveValues(
    pth=NULL
  )


  observeEvent(input$filechoose,{
    path$pth <- file.choose()
  })

   output$filechosen <- renderText({

      if(is.null(path$pth)){
        "Nothing selected"
      }else{
        path$pth
      }
   })
}

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

Это то, что вы ищете?

...