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] } ) ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.