fork download 
  1. if (interactive()) {
  2.  
  3.  
  4.   server <- function(input, output) {
  5.     observeEvent(input$goButton, {
  6.     library(shiny)
  7.     library(shinyjs)
  8.     library(CTT)
  9.     library(TAM)
  10.     library(ltm)
  11.     library(difR)
  12.  
  13.  
  14.  
  15.  
  16.  
  17.     output$contents <- renderTable({
  18.       # input$file1 will be NULL initially. After the user selects
  19.       # and uploads a file, it will be a data frame with 'name',
  20.       # 'size', 'type', and 'datapath' columns. The 'datapath'
  21.       # column will contain the local filenames where the data can
  22.       # be found.
  23.       inFile <- input$file1
  24.  
  25.       if (is.null(inFile))
  26.         return(NULL)
  27.  
  28.       read.csv(inFile$datapath, header = input$header)
  29.     })
  30.     output$contents <- renderTable({
  31.       # input$file1 will be NULL initially. After the user selects
  32.       # and uploads a file, it will be a data frame with 'name',
  33.       # 'size', 'type', and 'datapath' columns. The 'datapath'
  34.       # column will contain the local filenames where the data can
  35.       # be found.
  36.       inFile <- input$file1
  37.  
  38.       if (is.null(inFile))
  39.         return(NULL)
  40.  
  41.       read.csv(inFile$datapath, header = input$header)
  42.     })
  43.   }
  44.  
  45.   )}   
  46. }
  47. # your code goes here
Success #stdin #stdout 0.25s 39124KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/r6GdXs
language:
R (R 3.5.2)
created:
4 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!