Блог

Главная - Вопросы по программированию - Открытие вывода SWMM в виде двоичного файла в Блестящей панели мониторинга

Открытие вывода SWMM в виде двоичного файла в Блестящей панели мониторинга

#r #shiny #binary

Вопрос:

Я пытаюсь прочитать вывод из программного обеспечения SWMM в виде двоичного файла, чтобы работать с ним, но Shiny dashboard не может правильно открыть вывод из SWMM readBin (он не может правильно прочитать двоичный файл). Я не знаю, как решить эту проблему. Раздел этого кода приведен ниже. Я был бы признателен, если бы вы помогли мне с этим.

пользовательский интерфейс

 shinyUI(
dashboardPage(
dashboardBody(
tabItems(
tabItem(tabName = "GetObjectsSWMM",
          fluidRow(actionButton("GetObjectsSWMMbtn","GetObjectsSWMM_P")),
          fluidRow(tableOutput("input_GetObjectsSWMM")),
          fluidRow(tableOutput("GetObjectsSWMM_P"))
),
tabItem(tabName="SWMM_Out",
                fluidRow(tableOutput("input_SWMM_Out")),
                fluidRow(fileInput("file9","Select SWMM model output from directory"),
                         tags$hr()),
                fluidRow(
                  verbatimTextOutput("input_file9"))
                )))))

сервер

 library(shiny)
library(shinydashboard)
options(shiny.maxRequestSize = 30*1024^2)

if (interactive()) {
  
shinyServer(function(input,output){
table_content_GetObjectsSWMM<-eventReactive(input$GetObjectsSWMMbtn,{
    file_to_read_SWMM_Out=input$file9 
    read_Output<- readBin(input$file9$datapath, n = 1, size = 4,what = "rb")
    read_Output2<-paste('"',read_Output,'"',sep="")
    BinaryFile<- readBin( read_Output2, what="rb")
    Status ={}
    seek(BinaryFile,1*4,"start")
    return(Status)
   })
   
   output$GetObjectsSWMM_P <-renderText({
     req(table_content_GetObjectsSWMM())
     table_content_GetObjectsSWMM()
     Status
   })
})}
Метки: