Question

我想更改导入到日期的选定列类型。操作应该在一个闪亮的应用程序中完成。数据位于csv file中。在此数据集中，应更改的列称为“日期”，但理想情况下，应该可以输入应更改类型的列的名称。

我写的代码：

ui <- fluidPage(
  titlePanel("Test"),
  mainPanel(
    fluidRow(
      column(5,
             fileInput('file1', "Input a csv file:"),
             accept=c('text/csv', 
                      'text/comma-separated-values,text/plain', 
                      '.csv'),
             checkboxInput('header', 'Header', TRUE)),
      column(3,
             radioButtons('sep', 'Separator',
                          c(Comma=',',
                            Semicolon=';',
                            Tab='\t'),
                          ',')
      ),
      column(3,
             radioButtons('quote', 'Quote',
                          c(None='',
                            'Double Quote'='"',
                            'Single Quote'="'"),
                          '"')
      )
    ),
    tableOutput("first.two"),
    fluidRow(
      column(4,
             textInput("time.var", h3("Input time variable:"),
                       value = ""))
    ),
    p(strong("Variables to choose from:"), textOutput("possible.variables")),
    p(strong("Classes of variables"), textOutput("variable.classes"))
  )
)

server <- function(input, output){
  dset.in <- reactive({
    infile <- input$file1
    if(is.null(infile)){
      return(NULL)
    }

    df <- read.csv(infile$datapath, header = input$header,
                   sep = input$sep,quote = input$quote)

    return(df)}
  )

  # Change column type to date
  # When three lines below are commented out, the code works
  dset.in()$date.input <- observeEvent({
    dset.in()[,input$time.var] <- lubridate::date_decimal(dset.in()[,input$time.var])
  })

  output$first.two <- renderTable({head(dset.in(), 2)})

  output$possible.variables <- renderText(
    names(dset.in())
  )
  output$variable.classes <- renderText(
    sapply(dset.in(), class)
  )
}

shinyApp(ui = ui, server = server)

它会产生以下错误：

if（！is.na（attribValue））中的警告{：
   条件的长度> 1，仅使用第一个元素
  charToRaw中的警告（enc2utf8（文本））：
    参数应该是长度为1的字符向量   除了第一个元素之外的所有元素都将被忽略
  身体警告（有趣）：参数不是函数

  警告：eval中出错：参数“expr”缺失，没有默认值   堆栈跟踪（最里面的第一个）：
      44：eval
      43：makeFunction
      42：exprToFunction
      41：观察事件
      40：服务器[＃16]
       4：
       3：do.call
       2：print.shiny.appobj
       1：

  eval中的错误（call（“function”，args，body），env）：
    参数“expr”缺失，没有默认值

Answer 1

尝试使用：

  modified_dset <- eventReactive(input$time.var, {
    dset.in()[, input$time.var] <- lubridate::date_decimal(dset.in()[,input$time.var])
  })

并在其他地方使用此modified_dset。

更改闪亮的导入数据集的列类型

1 个答案: