提交后清除文本输入

普尼思

在这里,我将新列添加到我的数据框。
下面的代码运行良好。添加新列后,“变量名称”和“公式”中的文本应为空。

请你帮助我好吗。

用户界面

library(shiny)
shinyUI(pageWithSidebar(
  headerPanel( "", ""),
  sidebarPanel(

    wellPanel(

      fileInput('file', 'Select csv file', accept=c('text/csv') ),

      checkboxInput('header', 'Header', TRUE),

      gsub("label class=\"radio\"", "label class=\"radio inline\"",
           radioButtons('sep', 'Separator', c(Comma=',', Semicolon=';', Tab='\t' )))

    ),

    wellPanel(
      checkboxInput('addcol', 'Create New Variable', FALSE),

      conditionalPanel(condition="input.addcol!=0",
                       textInput('newvar', "Variable name","" ),
                       textInput('newformula', "Formula",""),
                       actionButton("addvar","Apply"))      
    )
    ),

  mainPanel(
    tabsetPanel(
      tabPanel(tableOutput('contents'))
    )
  )

))

服务器

library(shiny)
shinyServer(function(input,output,session){

  dataset = reactive({
    inFile<-input$file
    if(is.null(inFile))
      return(NULL)
    read.csv(inFile$datapath, header=input$header, sep=input$sep)
  })


  alterdata = reactive({
    if(input$addcol!=0&&input$addvar!=0){
      isolate({
        df<-dataset()
        df$Var1<-eval(parse(text=input$newformula), df)
        df<-rename(df, c(Var1=input$newvar))
        df
      })
    }
    else
    {
      dataset()
    }
  })

  output$contents<-renderTable({
    if (is.null(input$file)) { return() }                            
    alterdata()
  })

})
拉姆·纳拉辛汉(Ram Narasimhan)

您可以通过使用updateTextInput().以下功能来做到这一点

这是更新后的server.R的样子:

修改后的Server.R

注意,两行已添加到alterdata()反应函数中。

library(shiny)
library(plyr)
shinyServer(function(input,output,session){

  dataset = reactive({
    inFile<-input$file
    if(is.null(inFile))
      return(NULL)
    read.csv(inFile$datapath, header=input$header, sep=input$sep)
  })


  alterdata = reactive({
    if(input$addcol!=0&&input$addvar!=0){
      isolate({
        df<-dataset()
        df$Var1<-eval(parse(text=input$newformula), df)
        df<-rename(df, c(Var1=input$newvar))

        #add these two lines
        updateTextInput(session, "newvar", value = " ")     
        updateTextInput(session, "newformula", value = " ")     

        df        
      })
    }
    else
    {
      dataset()
    }
  })


  output$contents<-renderTable({
    if (is.null(input$file)) { return() }                            
    alterdata()    
  })

})

请注意,我必须包括在内,plyr以便rename可以调用它。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

提交输入值后清除输入

来自分类Dev

使用Typehead提交后清除输入数据

来自分类Dev

提交后React Hooks清除输入

来自分类Dev

提交后如何清除表单输入?

来自分类Dev

提交清除文本框后

来自分类Dev

单击事件后清除输入文本

来自分类Dev

单击事件后清除输入文本

来自分类Dev

输入键后清除文本区域

来自分类Dev

如何使输入字段在提交后添加文本

来自分类Dev

在React中提交表单后无法清除输入字段

来自分类Dev

单击提交后无法自动清除输入字段(反应)

来自分类Dev

提交到数据库后如何清除输入字段

来自分类Dev

提交后清除表单中的文本字段

来自分类Dev

单击提交按钮后输入文本区域的文本

来自分类Dev

在Android中在edittext中输入文本后,setError无法清除

来自分类Dev

清除输入文本后,如何隐藏ajax搜索结果?

来自分类Dev

清除另一个输入后清除输入类型的文本

来自分类Dev

React:提交表单后如何清除文件输入和数据输入字段?

来自分类Dev

提交时清除输入字段

来自分类Dev

填写文本输入后,HTML表单将不会提交

来自分类Dev

提交后,输入文本消失并重新加载页面(AJAX)

来自分类Dev

提交angularjs后清除表单

来自分类Dev

如何提交后清除FORMDATA()

来自分类Dev

提交后如何清除表格

来自分类Dev

使用Ionic框架在AngularJS中提交表单后,输入将无法清除

来自分类Dev

在React中使用useEffect函数组件成功提交后如何清除输入字段

来自分类Dev

在新标签页中打开后清除提交中的输入数据

来自分类Dev

成功提交数据后,如何清除文件输入中的文件选择?

来自分类Dev

在C#中提交后,Unity3d清除输入字段

Related 相关文章

热门标签

归档