how can I summarize survey answers from a data table in R shiny?

[xyulie]

Hello community!
I feel like my question is very basic but I couldn't find a solution in the shiny tutorials or online.
I would like to summarize survey answers from a table first. I could import the data to my shiny app so far:

anreise2013 <- read_csv("anreise2013.csv")

... and display the data table in my ui:

render Datatable
_ output$table <- DT::renderDataTable({_
_ DT::datatable(anreise2013)_
_ })_

The table contains only one row with the header "how did you get here" and below are the standardized answers from the respondents in text format (by car, by feet, by train or by bicycle).

I tried to use the data.table package to preform following action:
dt[, .(x = sum(a))] – create a data.table with new columns based on the summarized values of rows.
(copied from data.table cheat sheet)

but I looks like my syntax was wrong or maybe I already imported the table with the wrong command.
This is the error message:

Error in .(x = sum(a)) : could not find function "."

The final output I'd like to create should look something like this:

Can someone link me to a tutorial or explain me what I'm doing wrong?
I'd appreciate it a lot

Thank you!
Julie

[martin.R]

You should be aware that data.table and DT::datatable are very different things, so it's possible you have confused these. As you are already using the tidyverse function read_csv I suspect this is the case.

The error message is likely because you have not loaded data.table via: library(data.table)

The tidyverse/dplyr equivalent would be something like dt %>% summarise(x = sum(a))

For any further help re the plots you should produce a reproducible example:

FAQ: What's a reproducible example (`reprex`) and how do I create one?

Why reprex? Getting unstuck is hard. Your first step here is usually to create a reprex, or reproducible example. The goal of a reprex is to package your code, and information about your problem so that others can run it and feel your pain. Then, hopefully, folks can more easily provide a solution. What's in a Reproducible Example? Parts of a reproducible example: background information - Describe what you are trying to do. What have you already done? complete set up - include any library() calls and data to reproduce your issue. data for a reprex: Here's a discussion on setting up data for a reprex make it run - include the minimal code required to reproduce your error on the data…

:

[xyulie]

Hi Martin,
thank you for the fast answer

I tried to preform a reprex, I hope it turned out well. I put together the stuff I learned from the shiny tutorial to make myself a template. this is how my app looks like at the moment:

library(shiny)
library(readr)
library(markdown)
#> Warning: Paket 'markdown' wurde unter R Version 3.5.2 erstellt
library(plotly)
#> Warning: Paket 'plotly' wurde unter R Version 3.5.2 erstellt
#> Lade nötiges Paket: ggplot2
#> Warning: Paket 'ggplot2' wurde unter R Version 3.5.2 erstellt
#> 
#> Attache Paket: 'plotly'
#> The following object is masked from 'package:ggplot2':
#> 
#>     last_plot
#> The following object is masked from 'package:stats':
#> 
#>     filter
#> The following object is masked from 'package:graphics':
#> 
#>     layout
library(datasets)
library(data.table)
library(tidyverse)
#> Warning: Paket 'tidyverse' wurde unter R Version 3.5.2 erstellt
#> Warning: Paket 'tidyr' wurde unter R Version 3.5.2 erstellt
#> Warning: Paket 'dplyr' wurde unter R Version 3.5.2 erstellt
#> Warning: Paket 'stringr' wurde unter R Version 3.5.2 erstellt
#> Warning: Paket 'forcats' wurde unter R Version 3.5.2 erstellt

anreise2013 <- read_csv("anreise2013.csv")
#> Error: 'anreise2013.csv' does not exist in current working directory ('C:/Users/julie/AppData/Local/Temp/Rtmpsb5ylA/reprex3f2435231785').



# Define UI for app that draws a histogram ----
ui <- fluidPage(
  
  # App title ----
  titlePanel("Vorlage"),
  
  # Sidebar layout with input and output definitions ----
  sidebarLayout(
    
    # Sidebar panel for inputs ----
    sidebarPanel(
      h3("Sidebar Panel"),
      br(),
      
      # Input Action Button
      h4("Action Button"),
      actionButton("action", label = "Action"),
      hr(),
      fluidRow(column(12, verbatimTextOutput("value1"))),
      
      #Input dropdown selection box
      selectInput("select", label = h4("Select box"), 
                  choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3), 
                  selected = 1),
      hr(),
      fluidRow(column(12, verbatimTextOutput("value2"))),
      
      #Text input
      textInput("text", label = h4("Text input"), value = "Enter text..."),
      hr(),
      fluidRow(column(12, verbatimTextOutput("value3"))),
      
      # slider input
      sliderInput("slider1", label = h4("Slider"), min = 1, 
                  max = 6, value = 5),
      hr(),
      verbatimTextOutput("value4")
      
    ),
    
    # Main panel for displaying outputs ----
    mainPanel(
      h3("Main Panel"),
      #rendertext
      p("rendertext function: you pushed the action button", textOutput("action_value1"), "times."),
      #renderimage
      p("renderImage function: (input: selection box)"),
      imageOutput("numberimage"),
      #rendertable
      tabPanel("Table", DT::dataTableOutput("table")),
      #plotoutput bar plot
      plotOutput("anreisebar"),
      #fonts and image input
      img(src = "tree.png", align = "right"),
      p("this is a paragraph // font test below"),
      strong("bold text"),
      em("italicized text"),
      code("computer code style"),
      div("blue text", style = "color:blue"),
      div("green text", style = "color:green"),
      p("some words in a different style with span",
        span("some words", style = "color:orange"),
        "that appear inside a paragraph.")
      
      # Output: 
      
    )
  )
)
# Define server logic required to draw a histogram ----
server <- function(input, output) {
  #renderprint
  output$value1 <- renderPrint({ input$action })
  output$value2 <- renderPrint({ input$select })
  output$value3 <- renderPrint({ input$text })
  output$value4 <- renderPrint({ input$slider1 })
  #rendertext
  output$action_value1 <- renderText({ input$action })
  #renderimage
  output$numberimage <- renderImage({
    if (is.null(input$select))
      return(NULL)
    
    if (input$select == "1") {
      return(list(
        src = "www/nr1.png",
        contentType = "image/png",
        alt = "1"
      ))
    } else if (input$select == "2") {
      return(list(
        src = "www/nr2.png",
        filetype = "image/png",
        alt = "2"
      ))
    }else if (input$select == "3") {
      return(list(
        src = "www/nr3.png",
        filetype = "image/png",
        alt = "3"
      ))
    }
    
  }, deleteFile = FALSE)
  #Render Datatable
  output$table <- DT::renderDataTable({
    DT::datatable(anreise2013)
  })

  
}

shinyApp(ui = ui, server = server)

Shiny applications not supported in static R Markdown documents

^{Created on 2019-01-29 by the reprex package (v0.2.1)}

this is the csv I want to work with: https://drive.google.com/file/d/1DMAIpOT9k63iMn5Ou4gT9zby1EybN44U/view?usp=sharing

[martin.R]

Sorry, I overlooked that this was for Shiny. There is a separate guide for Shiny reprexes:

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

I don't use Shiny, so hopefully somebody else can help you, but as a general piece of advice it is best to generate the plots you want outside of Shiny first to ease the process.

[xyulie]

Ok, then I try to figure it out in R first, thank you