fork download 
  1.  
  2.  
  3. ui <- fluidPage(
  4.   titlePanel(
  5.     "Student Quiz Analysis Website"),
  6.   sidebarLayout(
  7.     sidebarPanel(
  8.       fileInput("file1", "Choose CSV File and Input Original Data",
  9.                 accept = c(
  10.                   "text/csv",
  11.                   "text/comma-separated-values,text/plain",
  12.                   ".csv")
  13.       ),
  14.       tags$hr(),
  15.       checkboxInput("header", "Header", TRUE)
  16.     ),
  17.     mainPanel(
  18.       verbatimTextOutput("des1")
  19.     )
  20.   )   ,
  21.   sidebarLayout(
  22.     sidebarPanel(
  23.       fileInput("file2", "Choose CSV File and Input Only Answer Data  ",
  24.                 accept = c(
  25.                   "text/csv",
  26.                   "text/comma-separated-values,text/plain",
  27.                   ".csv")
  28.       ),
  29.       tags$hr(),
  30.       checkboxInput("header", "Header", TRUE)
  31.     ),
  32.     mainPanel(
  33.       tableOutput("content2")
  34.     )
  35.   )
  36.   , actionButton("goButton", "Go!")
  37.  
  38. )# your code goes here
Success #stdin #stdout #stderr 0.24s 39056KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Error: could not find function "fluidPage"
Execution halted
https://ideone.com/6f1HIq
language:
R (R 3.5.2)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!