Add rows directly in a r shiny apps

I'm working on a Shiny app with 2 tables, 1 graph and a conditional answer .

I want to add a row to a table directly in Shiny and update results.

For example, in a table with an id, 2 dates and 2 multiples choices questions. I have 3 observations and I want a user to be able to add n others observations, which should cause the other table and graph to update with this new observations.

Is it possible? If yes how do you do this?

Thank you, forgive my poor english.

Here a link of my Shiny apps http://www.hostingpics.net/viewer.php?id=459723Shiny.png

and here the code who work :

https://gist.github.com/wolf6541/7874968

i have already try this for my question :

**Ui.r**
 #Titre
    h3("Ajout d'un nouveau patient"), 

#Date inclusion
dateInput("date_inclu", "Date de l'inclusion", value = ,language = "fr"),

#Date reponse
dateInput("date_rep", "Date de reponse", value = ,language = "fr"),

#Dose
textInput("dose", "Dose administree", ),

#Reponse
textInput("tox", "Reponse toxicite", ),

updateData()


**Server.R**
    identifiant =length(data_time$identifiant)
    dose =reactive(input$dose)
    date_inclusion =reactive(input$date_inclu)
    date_reponse =reactive(input$date_rep)
    reponse =reactive(input$tox)

    nouveau_pat = cbind(identifiant,  dose,  date_inclusion,    date_reponse,   reponse)
    nouveau_pat = as.data.frame(nouveau_pat)

    data_time = rbind(data_time,nouveau_pat)

but that doesn't work

Answers


One way to do this is to rely on the matrixInput function of the shinyIncubator package. The shinyIncubator package has development features that are sometimes eventually merged with shiny. Given its amazingness, I expect that matrixInput or something like it will be part of base shiny within our lifetimes.

I made a demo:

library("shiny")
library("shinyIncubator")
runGist("https://gist.github.com/anonymous/8449201")

For me the hardest part was getting matrixInput to show its colnames, which are hidden by default. What you need to do here is customize the display style. You can do this in a css or, as I did, in the body of your ui.R using tags. The key is to assign display: table-header-group to .tableinput .hide. Other display features can be found by using the inspect element option of your browser : Firefox and Chrome both have that feature; other browsers probably do too.

tags$head(
  tags$style(type = "text/css"
    , ".tableinput .hide {display: table-header-group;}"
  )
)

Need Your Help

C# Run application MINIMIZED at windows startup

c# .net startup minimized

I got the following code to run the application at windows startup:

ssrs 2008 passing a parameter list to a subreport

sql-server reporting-services sql-server-2008-r2

I have a report in which the user can select multiple items in a list for one of the parameters. Clicking on the report opens a sub-report, with parameters being passed to the sub-report. If only one