library( shinyLikert )
testData = createTestData()
plot(
  renderShinyLikert( 
    testData,
    split    = c( "difficulty", "gender", "country" )
  ) 
)
plot( 
  renderShinyLikert( 
    testData,
    height  = c(500,800),
    dropdown = "difficulty",
    group = "country"
  ) 
)
plot(
  renderShinyLikert( 
    testData,
    split    = c( "difficulty", "gender", "country" ),
    custom_tests = list( 
      anova =  function(item,factor){
          anova( lm( as.numeric(item) ~ factor ) )$`Pr(>F)`[1]
      } 
    )
  ) 
)


GregorDeCillia/shinyLikert documentation built on May 6, 2019, 6:36 p.m.