Question

每次我尝试使用一些示例代码示例代码运行应用程序时，该应用程序在启动时崩溃，并指出R无法识别editTable中的参数，例如outdir或outfilename。或该应用程序根本无法运行并返回此错误

“ shinyApp（ui = ui，服务器=服务器）中出现错误：找不到对象'服务器'。

其他人以前有这个问题吗？

我使用的示例代码可以在这里找到：http://stla.github.io/stlapblog/posts/shiny_editTable.html

我还将在下面添加修改后的代码。

图书馆（合理的）库（发光）

editTable <-函数（DF， outdir = getwd（“ / Users / gabrieldmay / Library / Mobile 文档/ com〜apple〜CloudDocs / Midnight Strategies / Apps / Charlie Nation“）， outfilename =“ newDF.csv”）{

DF <-data.frame（值= 1:10，状态= TRUE，名称=字母[1:10]， Date = seq（from = Sys.Date（），by =“ days”，length.out = 10）， stringsAsFactors = FALSE） }

ui <- shinyUI(fluidPage(

titlePanel("Edit and save a table"),
sidebarLayout(
  sidebarPanel(
    helpText("Shiny app based on an example given in the rhandsontable 
package.", 
             "Right-click on the table to delete/insert rows.", 
             "Double-click on a cell to edit"),

    wellPanel(
      h3("Table options"),
      radioButtons("useType", "Use Data Types", c("TRUE", "FALSE"))
    ),
    br(), 

    wellPanel(
      h3("Save table"), 
      div(class='row', 
          div(class="col-sm-6", 
              actionButton("save", "Save")),
          div(class="col-sm-6",
              radioButtons("fileType", "File type", c("ASCII", "RDS")))
      )
    )

  ),

  mainPanel(
    wellPanel(
      uiOutput("message", inline=TRUE)
    ),

    actionButton("cancel", "Cancel last action"),
    br(), br(), 

    rHandsontableOutput("hot"),
    br(),

    wellPanel(
      h3("Add a column"),
      div(class='row', 
          div(class="col-sm-5", 
              uiOutput("ui_newcolname"),
              actionButton("addcolumn", "Add")),
          div(class="col-sm-4", 
              radioButtons("newcolumntype", "Type", c("integer", 
"double", "character"))),
          div(class="col-sm-3")
      )
    )

  )
)

））

server <- shinyServer(function(input, output) {

values <- reactiveValues()

## Handsontable
observe({
  if (!is.null(input$hot)) {
    values[["previous"]] <- isolate(values[["DF"]])
    DF = hot_to_r(input$hot)
  } else {
    if (is.null(values[["DF"]]))
      DF <- DF
    else
      DF <- values[["DF"]]
  }
  values[["DF"]] <- DF
})

output$hot <- renderRHandsontable({
  DF <- values[["DF"]]
  if (!is.null(DF))
    rhandsontable(DF, useTypes = as.logical(input$useType), stretchH = 
"all")
})

## Save 
observeEvent(input$save, {
  fileType <- isolate(input$fileType)
  finalDF <- isolate(values[["DF"]])
  if(fileType == "ASCII"){
    dput(finalDF, file=file.path(outdir, sprintf("%s.txt", outfilename)))
  }
  else{
    saveRDS(finalDF, file=file.path(outdir, sprintf("%s.rds", 
outfilename)))
  }
}
)

## Cancel last action    
observeEvent(input$cancel, {
  if(!is.null(isolate(values[["previous"]]))) values[["DF"]] <- 
isolate(values[["previous"]])
})

## Add column
output$ui_newcolname <- renderUI({
  textInput("newcolumnname", "Name", sprintf("newcol%s", 
1+ncol(values[["DF"]])))
})
observeEvent(input$addcolumn, {
  DF <- isolate(values[["DF"]])
  values[["previous"]] <- DF
  newcolumn <- eval(parse(text=sprintf('%s(nrow(DF))', 
isolate(input$newcolumntype))))
  values[["DF"]] <- setNames(cbind(DF, newcolumn, 
stringsAsFactors=FALSE), c(names(DF), isolate(input$newcolumnname)))
})

## Message
output$message <- renderUI({
  if(input$save==0){
    helpText(sprintf("This table will be saved in folder \"%s\" once you 
press the Save button.", outdir))
  }else{
    outfile <- ifelse(isolate(input$fileType)=="ASCII", "table.txt", 
 "table.rds")
    fun <- ifelse(isolate(input$fileType)=="ASCII", "dget", "readRDS")
    list(helpText(sprintf("File saved: \"%s\".", file.path(outdir, 
 outfile))),
         helpText(sprintf("Type %s(\"%s\") to get it.", fun, outfile)))
  }
})

})

## run app 
shinyApp(ui = ui, server = server)

无法使用editTable函数运行应用

0 个答案: