Nothing
R/gui.R
In dextergui: A Graphical User Interface for Dexter
Defines functions
get_ui
header
header = function()
{
tags$head(
tags$title("dextergui"),
tags$link(href = "shinydexter/shinydexter.css", type='text/css', rel='stylesheet'),
tags$link(href = "shinydexter/jquery-ui.min.css", type='text/css', rel='stylesheet'),
tags$script(src = "shinydexter/jquery.sparkline.min.js"),
tags$script(src = "shinydexter/jquery-ui.min.js"),
tags$script(src = "shinydexter/jquery.mousewheel.min.js"),
tags$script(src = "shinydexter/zoom.js"),
tags$script(src = "shinydexter/patches.js"),
tags$script(src = "shinydexter/pr_helper.js"),
tags$script(src = "shinydexter/dt_extensions.js"),
tags$script(src = "shinydexter/img-select.js"),
tags$script(src = "shinydexter/shinydexter.js")
)
}
get_ui = function()
{
tagList(header(),
useShinyjs(),
tags$div(tags$h1('Loading...'), tags$div(class='loader'),id='project_load_icon',style='display:none;'),
navbarPage(title=NULL, id='main_navbar', position = 'fixed-top',
tabPanel('Project',
tags$div(
sfButton_add_icon(
shinySaveButton('new_proj_fn', ' Start new project', 'Save dexter project as...', filetype=list(db='db', sqlite = 'sqlite')),
'fa fa-file-o'),
sfButton_add_icon(
shinyFilesButton('open_proj_fn', label=' Open project', title='Select a dexter project file', multiple = FALSE),
'fa fa-folder-open-o'),
tags$button(tags$i(class="fa fa-upload"), tags$span(' Import oplm project'),
type='button', id='oplm_btn', class='btn btn-default'),
tags$button(tags$i(class="fa fa-lightbulb-o"), tags$span(' example datasets'),
type='button', id='example_dts_btn', class='btn btn-default'),
tags$div(' | Project: ',textOutput('project_pth', inline=TRUE),
style='display:inline-block;font-weight:bold;vertical-align:bottom;margin-bottom:5px'),
class='project-buttons'),
tags$div(
generate_inputs(start_new_project_from_oplm, inline=TRUE, width='100px', omit=c('format','missing_character'),
input_type = list(booklet_position='range', person_id='range', responses_start='numeric',
dbname='file_savename'),
label='Start project'),
tableOutput('oplm_dat'),
tags$hr(),
id='oplm_inputs'),
example_datasets_ui(id='example_datasets'),
fluidRow(
column(4,
tags$div(
withBusyIndicatorUI(hidden(actionButton('prj_alter_rules','Save changes', class="btn btn-primary"))),
style="float:right;"),
tags$h3('Scoring rules',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter rules', value = 'view',
dt_editable(dataTableOutput("rules"),columns=3)),
tabPanel('Add rules from a file', value = 'from_file',
tags$br(),
tags$div(
tagAppendAttributes(
fileInput('rules_file', 'Select scoring rules file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_rules', 'import', class='btn btn-primary')),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
style='vertical-align:top; margin-top:1em;',
`data-toggle`='collapse',`data-target`='#help-add-rules-file'),
style="white-space:nowrap;"),
tableOutput("new_rules_preview"),
tags$div(
tags$p('The scoring rules file can have one of these two formats:'),
tags$div(
tags$b('1) Scoring rules per response'),
tags$p('A csv or excel file with columns item_id, response and item_score with a separate row for each item-response combination',
style="padding:5px;"),
df2html(data.frame(item_id = c('S1DoCurse', 'S1DoScold'), response = c(0,0,1,1,2,2), item_score = c(0,0,1,1,2,2)) %>%
arrange(.data$item_id, .data$response),
class="min-table", style="margin-bottom:16px;"),
tags$b('2) Keys'),
tags$p('Only for multiple choice items, a csv or excel file with columns item_id, nOptions and key. ',
'Keys can be either alphabetical or numeric', style="padding:5px;"),
df2html(data.frame(item_id = c('mcItem_1', 'mcItem_2','mcItem_3'), nOptions = c(3,4,3), key=c('C','A','A')),
class="min-table"),
style="margin:7px;"),
class='alert alert-light collapse', id='help-add-rules-file')),
id='proj_rules_tabs'),
id='proj_rules_frm'
),
column(4,
tags$h3('Items',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter item properties',
dt_editable(dataTableOutput("item_properties"),columns='2:')),
tabPanel('Add item properties from a file',
tags$br(),
tags$b('Item properties'),
tags$p('Upload a csv, osd or excel file with a column named ', tags$i('item_id'), ' and other columns specifying the item properties.'),
tags$p('The first row should contain column names.'),
tagAppendAttributes(
fileInput('itemprop_file', 'Select spreadsheet file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_itemprop', 'import')),
tags$div(textOutput('rules_upload_error', inline=TRUE), class='error'),
tableOutput("new_itemprop_preview"),
tags$hr(),
tags$b('Item contents'),
tags$p('upload the content of items themselves so they can be displayed on the ',
' Classical Analysis tab'),
tags$p('This should be a .zip file including a .png image or a .html file ',
'for each item and the name of each file should correspond to an item id.'),
tagAppendAttributes(
fileInput('itemcontents_file', 'Select zip file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_item_contents', 'import')),
tags$div(textOutput('itemcontents_upload_error', inline=TRUE), class='error'),
uiOutput("new_itemcontents_preview")
)),
id='proj_items_frm'),
column(4,
tags$h3('Persons',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter person properties',
dt_editable(dataTableOutput("person_properties"),columns='2:')),
tabPanel('Add person properties from a file',
tags$br(),
tags$p('Upload a csv or excel file with a column named ', tags$i('person_id'), ' and other columns specifying the person properties.'),
tags$p('The first row should contain column names.'),
tagAppendAttributes(
fileInput('person_property_file', 'Import person properties'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_personprop', 'import')),
dataTableOutput("new_personprop_preview"))),
id='proj_persons_frm'),
style='margin-left:0;')),
tabPanel('Data import',
tabsetPanel(id='data_input_format',
tabPanel('Single booklet', value='wide',
tags$h3('Import respons data', tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
`data-toggle`='collapse',`data-target`='#help-import-data-file',
style="position:relative;bottom:1px;")),
fluidRow(
column(width=3, class="col-side-left",
tags$div(tags$p('Here you can import response data for a single booklet at a time with persons as rows',
'and items as columns.'),
tags$p("The first row should contain column names. Column names should correspond to item_id's",
'for which you have previously entered scoring rules. It is also possible to include',
'columns which contain person properties,',
'e.g. age, schooltype or other variables of interest.'),
tags$p('It is good practice to add another column',
'named person_id to uniquely identify each person. This will prevent you from accidentally entering',
'the same data twice.'),
id='help-import-data-file', class='collapse',style="margin-bottom:1em;"),
fileInput('data_file', 'Data file',width='100%'),
selectizeInput('add_booklet_name','Booklet id', choices=c('type or choose booklet_id' = ''),
options=list(create=TRUE, createOnBlur=TRUE), width='100%'),
uiOutput('show_data_unknown_rsp', inline = TRUE),
withBusyIndicatorUI(actionButton('go_import_data','Import',class='btn btn-primary')),
htmlOutput('data_import_result')),
column(width=9, tableOutput('data_preview')))),
tabPanel('Long format', value='long',
tags$h3('Import respons data',
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
`data-toggle`='collapse',`data-target`='#help-import-data-file-long',
style="position:relative;bottom:1px;")),
fluidRow(
column(width=3, class="col-side-left",
tags$div(HTML('Here you can import response data in normalized or long format as can be typically exported',
'from databases. Dexter expects the columns:<ul><li>booklet_id</li><li>person_id</li><li>item_id</li>',
'<li>response</li></ul>',
'Each row should contain a single response.<br/>For each booklet in the respons data, dexter needs to know',
'which items that booklet should contain. Missing responses in the data will then be replaced with "NA".',
'You specify this in the design file which should conain the following columns:',
'<ul><li>booklet_id</li><li>item_id</li><li>item_position (optional)</li><ul><br/>',
"If all booklet_id's in the data are already known in the dexter-project, you don't need to specify a design."),
id='help-import-data-file-long', class='collapse',style="margin-bottom:1em;"),
fileInput('data_file_long', 'Data file',width='100%'),
fileInput('design_file_long','Design file',width='100%'),
uiOutput('show_data_unknown_rsp_long'),
withBusyIndicatorUI(actionButton('go_import_data_long','Import',class='btn btn-primary')),
htmlOutput('data_import_result_long')),
column(width=5, tableOutput('data_preview_long')),
column(width=4, tableOutput('design_preview_long'))))),
value = 'data_pane',style="padding-left:10px;"),
tabPanel('Classical analysis',
tabsetPanel(type = 'tabs', id = 'ctt_panels',
tabPanel('booklets',
fluidRow(
column(6,
tags$h4('Classical statistics for booklets',style='margin-bottom:1em;'),
dataTableOutput('inter_booklets'),
download_buttons('inter_booklets'),
tags$p(tags$i('Click on one of the rows to display the item total regressions.')),
style="padding-right:2em;"),
column(6,
tags$h4('Item total regressions',style='margin-bottom:1em;display:inline-block;'),
tags$div(
tags$div(
checkboxInput('inter_summate','summate', value=TRUE),
checkboxInput('inter_show_observed','show observed', value=TRUE),
style='display:inline-block;width:20ex;'),
enumericInput('inter_curtains', 'curtains', value='10', min='0', max='100', width = '6em', inline=TRUE),
style='display:inline-block;float:right;'),
uiOutput('inter_current_booklet'),
tags$div(
plotSlider('interslider',width='90%'),
style='padding:5px;clear:both;'
)),
style='padding:1em;')),
tabPanel('items',
fluidRow(
column(6,
checkboxInput('ctt_items_averaged','averaged over booklets', value=TRUE),
dataTableOutput('ctt_items'),
download_buttons('ctt_items'),
style="padding-right:3em;"),
column(6,
tags$a(
tags$span('Show item properties',class='collapsed-vis'),
tags$span('Hide item properties',class='collapsed-invis'), class="btn collapsed",
`data-toggle`='collapse',`data-target`='#ctt_itemprop',style='float:right;',
id='ctt_itemprop-btn'),
tags$a(
tags$span('Show item',class='collapsed-vis'),
tags$span('Hide item',class='collapsed-invis'), class="btn collapsed",
`data-toggle`='collapse',`data-target`='#item-viewer-img',style='float:right;',
id='item-viewer-btn'),
tags$h3(uiOutput('ctt_selected_item'),style='margin-bottom:1em;'),
tags$div(uiOutput('item_viewer'),
tags$hr(),
class="collapse",
id='item-viewer-img'),
listInput('ctt_itemprop',
class="collapse"),
tagAppendAttributes(plot_add_download_btn(plotOutput('ctt_plot')),
style='; max-width: 700px; margin-left:1em;'),
tags$div(
withBusyIndicatorUI(actionButton('go_save_ctt_item_rules','Save changes')),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:1em;',
`data-toggle`='collapse',`data-target`='#help-ctt-change-rule'),
tags$div(HTML('You can alter the score for an option by clicking a cell in the column <b>score</b>',
' and pressing the <i>Save changes</i> button.'),
class="collapse",
id='help-ctt-change-rule', style='margin-top:1em;margin-bottom:1em;'),
dt_editable(dataTableOutput("item_rules"),columns=4),
style='display:inline-block;margin-left:2em;'),
id='col-ctt-item'),
style='padding:1em;'))),
value = 'ctt_pane'),
tabPanel('Subgroup analysis',
fluidRow(
column(6,tags$h3('Profile plot'),
eselectInput('prof_booklet',label='Booklet',choices=c('choose booklet_id' = ''), inline=TRUE, width='20%'),
eselectInput('prof_item',label='Item property',choices=c('choose item property' = ''), inline=TRUE, width='20%'),
eselectInput('prof_item_xvals',label='x axis value(s)',choices=c('choose x-axis' = ''), multiple=TRUE, inline=TRUE,width='28%'),
eselectInput('prof_person', label='Person property',choices=c('choose person property' = ''), inline=TRUE,width='20%'),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:-1.5em;',
`data-toggle`='collapse',`data-target`='#help-profile_plot'),
tags$div(getHelpList('profile_plot', package='dexter')$details,
class="collapse",
id='help-profile_plot', style='margin-top:1em;margin-bottom:1em;'),
plot_add_download_btn(plotOutput('prof_plot', height='600px',width='90%')),
class="col-side-left"
),
column(6,tags$h3('DIF'),
eselectInput('DIF_person', label='Person property',choices=c('choose person property' = ''), inline=TRUE, width='20%'),
eselectInput('DIF_item',label='Order axes by',choices=c('choose item property' = ''), inline=TRUE, width='20%'),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:-1.5em;',
`data-toggle`='collapse',`data-target`='#help-DIF_test'),
tags$div(paste(getHelpList('DIF', package='dexter')$details,
getHelpList('plot.DIF_stats', package='dexter')$details),
class="collapse",
id='help-DIF_test', style='margin-top:1em;margin-bottom:1em;'),
tags$p(textOutput('DIF_text')),
plot_add_download_btn(plotOutput('DIF_plot', height='600px',width='90%'))
)),
value='DIF_pane'),
tabPanel('IRT analysis',
fluidRow(
column(
tags$h3('Fit enorm'),
tagAppendAttributes(textAreaInput('enorm_predicate',
label='data selection (optional)',
rows=1,
resize='none'),
class="predicate-with-help"),
uiOutput('enorm_design_connected'),
forceNetworkOutput('design_plot', height=450),
eselectInput('enorm_method',label='Method',choices = eval(formals(fit_enorm)$method), width = '30%', inline=TRUE),
#enumericInput('enorm_nIterations', label = 'nIterations',value=eval(formals(fit_enorm)$nIterations), width = '30%', inline=TRUE),
withBusyIndicatorUI(actionButton('go_fit_enorm','fit_enorm',class='btn btn-primary')),
htmlOutput('fit_enorm_result'),
width=3, class="col-side-left"
),
column(
tabsetPanel(type = 'tabs',id='enorm_tabs',
tabPanel('Abilities', value='ability',
# standard_errors weggelaten, op termijn zouden die in abplot meegenomen kunnen worden
wellPanel(generate_inputs(ability, omit=c('dataSrc','parms','standard_errors','use_draw','npv'),
inline=TRUE,width='120px'),
style='border:none;'),
tabsetPanel(type='tabs',
tabPanel('plots', abplotUI()
),
tabPanel('data',
tags$br(),
dataTableOutput('person_abilities'),
download_buttons('person_abilities')))),
tabPanel('Plausible values', value='plausible_values',
wellPanel(generate_inputs(plausible_values, omit=c('dataSrc','parms','use_draw'),
inline=TRUE,width='150px'),
style='border:none;'),
pvplotUI()),
tabPanel('Score-ability tables', value='ability_tables',
wellPanel(generate_inputs(ability_tables, omit=c('parms','design','standard_errors','npv'),
input_type=list(use_draw='numeric'),inline=TRUE, width='120px'),
style='border:none;'),
fluidRow(
column(6,
tags$h3('Score transformation table'),
tags$hr(),
tags$div(dataTableOutput('abl_tables'), download_buttons('abl_tables') ),style='max-width:600px;'),
column(6,
tags$h3('Test information functions'),
tags$hr(),
tags$div( # this div to give the hovering tooltip a reference point
plot_add_download_btn(
plotOutput('abl_tables_plot_ti', height='400px',
hover= hoverOpts("abl_tables_plot_ti_hov", delay = 200, delayType = "debounce"))),
uiOutput("abl_tables_plot_ti_hinf"), style='position:relative;'),
selectizeInput('abl_tables_plot_booklet', 'Choose booklets to plot', c(), multiple = TRUE),
style="padding-left:4em;"))),
tabPanel('Items', value='enorm_items',
fluidRow(
column(5,
tags$h3('Parameters'),
tags$hr(),
hidden(multiToggleButton('coef_format', selected='norm',btn_width='3em',style='float:right;margin-top:-12px;',
choices=list(norm = tags$span(class="fa fa-list"),
denorm = tags$i(class="fa fa-columns")))),
tags$div(
dataTableOutput('enorm_coef'),
download_buttons('enorm_coef')),
style="padding-left:2em;"),
column(7,
tags$h3('Item fit'),
tags$hr(),
enumericInput("enorm_slider_nbins","number of ability groups",min=2,step=1,value=5,inline=TRUE,width='5em'),
plotSlider('enorm_slider',height='600px',width='95%'),style="padding-right:8em;")
))),
width=9)),
value = 'enorm_pane'
),
tabPanel('Help',
tags$div(
tags$div(
includeHTML(system.file("extdata", "manual.html", package = "dextergui", mustWork = TRUE)),
class='help-page'),
class='help-page-outer'))
))
}
Try the dextergui package in your browser
Any scripts or data that you put into this service are public.
dextergui documentation built on June 21, 2022, 9:05 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions get_ui header
header = function()
{
tags$head(
tags$title("dextergui"),
tags$link(href = "shinydexter/shinydexter.css", type='text/css', rel='stylesheet'),
tags$link(href = "shinydexter/jquery-ui.min.css", type='text/css', rel='stylesheet'),
tags$script(src = "shinydexter/jquery.sparkline.min.js"),
tags$script(src = "shinydexter/jquery-ui.min.js"),
tags$script(src = "shinydexter/jquery.mousewheel.min.js"),
tags$script(src = "shinydexter/zoom.js"),
tags$script(src = "shinydexter/patches.js"),
tags$script(src = "shinydexter/pr_helper.js"),
tags$script(src = "shinydexter/dt_extensions.js"),
tags$script(src = "shinydexter/img-select.js"),
tags$script(src = "shinydexter/shinydexter.js")
)
}
get_ui = function()
{
tagList(header(),
useShinyjs(),
tags$div(tags$h1('Loading...'), tags$div(class='loader'),id='project_load_icon',style='display:none;'),
navbarPage(title=NULL, id='main_navbar', position = 'fixed-top',
tabPanel('Project',
tags$div(
sfButton_add_icon(
shinySaveButton('new_proj_fn', ' Start new project', 'Save dexter project as...', filetype=list(db='db', sqlite = 'sqlite')),
'fa fa-file-o'),
sfButton_add_icon(
shinyFilesButton('open_proj_fn', label=' Open project', title='Select a dexter project file', multiple = FALSE),
'fa fa-folder-open-o'),
tags$button(tags$i(class="fa fa-upload"), tags$span(' Import oplm project'),
type='button', id='oplm_btn', class='btn btn-default'),
tags$button(tags$i(class="fa fa-lightbulb-o"), tags$span(' example datasets'),
type='button', id='example_dts_btn', class='btn btn-default'),
tags$div(' | Project: ',textOutput('project_pth', inline=TRUE),
style='display:inline-block;font-weight:bold;vertical-align:bottom;margin-bottom:5px'),
class='project-buttons'),
tags$div(
generate_inputs(start_new_project_from_oplm, inline=TRUE, width='100px', omit=c('format','missing_character'),
input_type = list(booklet_position='range', person_id='range', responses_start='numeric',
dbname='file_savename'),
label='Start project'),
tableOutput('oplm_dat'),
tags$hr(),
id='oplm_inputs'),
example_datasets_ui(id='example_datasets'),
fluidRow(
column(4,
tags$div(
withBusyIndicatorUI(hidden(actionButton('prj_alter_rules','Save changes', class="btn btn-primary"))),
style="float:right;"),
tags$h3('Scoring rules',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter rules', value = 'view',
dt_editable(dataTableOutput("rules"),columns=3)),
tabPanel('Add rules from a file', value = 'from_file',
tags$br(),
tags$div(
tagAppendAttributes(
fileInput('rules_file', 'Select scoring rules file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_rules', 'import', class='btn btn-primary')),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
style='vertical-align:top; margin-top:1em;',
`data-toggle`='collapse',`data-target`='#help-add-rules-file'),
style="white-space:nowrap;"),
tableOutput("new_rules_preview"),
tags$div(
tags$p('The scoring rules file can have one of these two formats:'),
tags$div(
tags$b('1) Scoring rules per response'),
tags$p('A csv or excel file with columns item_id, response and item_score with a separate row for each item-response combination',
style="padding:5px;"),
df2html(data.frame(item_id = c('S1DoCurse', 'S1DoScold'), response = c(0,0,1,1,2,2), item_score = c(0,0,1,1,2,2)) %>%
arrange(.data$item_id, .data$response),
class="min-table", style="margin-bottom:16px;"),
tags$b('2) Keys'),
tags$p('Only for multiple choice items, a csv or excel file with columns item_id, nOptions and key. ',
'Keys can be either alphabetical or numeric', style="padding:5px;"),
df2html(data.frame(item_id = c('mcItem_1', 'mcItem_2','mcItem_3'), nOptions = c(3,4,3), key=c('C','A','A')),
class="min-table"),
style="margin:7px;"),
class='alert alert-light collapse', id='help-add-rules-file')),
id='proj_rules_tabs'),
id='proj_rules_frm'
),
column(4,
tags$h3('Items',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter item properties',
dt_editable(dataTableOutput("item_properties"),columns='2:')),
tabPanel('Add item properties from a file',
tags$br(),
tags$b('Item properties'),
tags$p('Upload a csv, osd or excel file with a column named ', tags$i('item_id'), ' and other columns specifying the item properties.'),
tags$p('The first row should contain column names.'),
tagAppendAttributes(
fileInput('itemprop_file', 'Select spreadsheet file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_itemprop', 'import')),
tags$div(textOutput('rules_upload_error', inline=TRUE), class='error'),
tableOutput("new_itemprop_preview"),
tags$hr(),
tags$b('Item contents'),
tags$p('upload the content of items themselves so they can be displayed on the ',
' Classical Analysis tab'),
tags$p('This should be a .zip file including a .png image or a .html file ',
'for each item and the name of each file should correspond to an item id.'),
tagAppendAttributes(
fileInput('itemcontents_file', 'Select zip file', width = '300px'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_item_contents', 'import')),
tags$div(textOutput('itemcontents_upload_error', inline=TRUE), class='error'),
uiOutput("new_itemcontents_preview")
)),
id='proj_items_frm'),
column(4,
tags$h3('Persons',style='margin-bottom:15px;'),
tabsetPanel(type = 'tabs',
tabPanel('View/alter person properties',
dt_editable(dataTableOutput("person_properties"),columns='2:')),
tabPanel('Add person properties from a file',
tags$br(),
tags$p('Upload a csv or excel file with a column named ', tags$i('person_id'), ' and other columns specifying the person properties.'),
tags$p('The first row should contain column names.'),
tagAppendAttributes(
fileInput('person_property_file', 'Import person properties'),
style = 'display:inline-block;margin-bottom:0;margin-right:1em;'),
withBusyIndicatorUI(actionButton('go_import_new_personprop', 'import')),
dataTableOutput("new_personprop_preview"))),
id='proj_persons_frm'),
style='margin-left:0;')),
tabPanel('Data import',
tabsetPanel(id='data_input_format',
tabPanel('Single booklet', value='wide',
tags$h3('Import respons data', tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
`data-toggle`='collapse',`data-target`='#help-import-data-file',
style="position:relative;bottom:1px;")),
fluidRow(
column(width=3, class="col-side-left",
tags$div(tags$p('Here you can import response data for a single booklet at a time with persons as rows',
'and items as columns.'),
tags$p("The first row should contain column names. Column names should correspond to item_id's",
'for which you have previously entered scoring rules. It is also possible to include',
'columns which contain person properties,',
'e.g. age, schooltype or other variables of interest.'),
tags$p('It is good practice to add another column',
'named person_id to uniquely identify each person. This will prevent you from accidentally entering',
'the same data twice.'),
id='help-import-data-file', class='collapse',style="margin-bottom:1em;"),
fileInput('data_file', 'Data file',width='100%'),
selectizeInput('add_booklet_name','Booklet id', choices=c('type or choose booklet_id' = ''),
options=list(create=TRUE, createOnBlur=TRUE), width='100%'),
uiOutput('show_data_unknown_rsp', inline = TRUE),
withBusyIndicatorUI(actionButton('go_import_data','Import',class='btn btn-primary')),
htmlOutput('data_import_result')),
column(width=9, tableOutput('data_preview')))),
tabPanel('Long format', value='long',
tags$h3('Import respons data',
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg",
`data-toggle`='collapse',`data-target`='#help-import-data-file-long',
style="position:relative;bottom:1px;")),
fluidRow(
column(width=3, class="col-side-left",
tags$div(HTML('Here you can import response data in normalized or long format as can be typically exported',
'from databases. Dexter expects the columns:<ul><li>booklet_id</li><li>person_id</li><li>item_id</li>',
'<li>response</li></ul>',
'Each row should contain a single response.<br/>For each booklet in the respons data, dexter needs to know',
'which items that booklet should contain. Missing responses in the data will then be replaced with "NA".',
'You specify this in the design file which should conain the following columns:',
'<ul><li>booklet_id</li><li>item_id</li><li>item_position (optional)</li><ul><br/>',
"If all booklet_id's in the data are already known in the dexter-project, you don't need to specify a design."),
id='help-import-data-file-long', class='collapse',style="margin-bottom:1em;"),
fileInput('data_file_long', 'Data file',width='100%'),
fileInput('design_file_long','Design file',width='100%'),
uiOutput('show_data_unknown_rsp_long'),
withBusyIndicatorUI(actionButton('go_import_data_long','Import',class='btn btn-primary')),
htmlOutput('data_import_result_long')),
column(width=5, tableOutput('data_preview_long')),
column(width=4, tableOutput('design_preview_long'))))),
value = 'data_pane',style="padding-left:10px;"),
tabPanel('Classical analysis',
tabsetPanel(type = 'tabs', id = 'ctt_panels',
tabPanel('booklets',
fluidRow(
column(6,
tags$h4('Classical statistics for booklets',style='margin-bottom:1em;'),
dataTableOutput('inter_booklets'),
download_buttons('inter_booklets'),
tags$p(tags$i('Click on one of the rows to display the item total regressions.')),
style="padding-right:2em;"),
column(6,
tags$h4('Item total regressions',style='margin-bottom:1em;display:inline-block;'),
tags$div(
tags$div(
checkboxInput('inter_summate','summate', value=TRUE),
checkboxInput('inter_show_observed','show observed', value=TRUE),
style='display:inline-block;width:20ex;'),
enumericInput('inter_curtains', 'curtains', value='10', min='0', max='100', width = '6em', inline=TRUE),
style='display:inline-block;float:right;'),
uiOutput('inter_current_booklet'),
tags$div(
plotSlider('interslider',width='90%'),
style='padding:5px;clear:both;'
)),
style='padding:1em;')),
tabPanel('items',
fluidRow(
column(6,
checkboxInput('ctt_items_averaged','averaged over booklets', value=TRUE),
dataTableOutput('ctt_items'),
download_buttons('ctt_items'),
style="padding-right:3em;"),
column(6,
tags$a(
tags$span('Show item properties',class='collapsed-vis'),
tags$span('Hide item properties',class='collapsed-invis'), class="btn collapsed",
`data-toggle`='collapse',`data-target`='#ctt_itemprop',style='float:right;',
id='ctt_itemprop-btn'),
tags$a(
tags$span('Show item',class='collapsed-vis'),
tags$span('Hide item',class='collapsed-invis'), class="btn collapsed",
`data-toggle`='collapse',`data-target`='#item-viewer-img',style='float:right;',
id='item-viewer-btn'),
tags$h3(uiOutput('ctt_selected_item'),style='margin-bottom:1em;'),
tags$div(uiOutput('item_viewer'),
tags$hr(),
class="collapse",
id='item-viewer-img'),
listInput('ctt_itemprop',
class="collapse"),
tagAppendAttributes(plot_add_download_btn(plotOutput('ctt_plot')),
style='; max-width: 700px; margin-left:1em;'),
tags$div(
withBusyIndicatorUI(actionButton('go_save_ctt_item_rules','Save changes')),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:1em;',
`data-toggle`='collapse',`data-target`='#help-ctt-change-rule'),
tags$div(HTML('You can alter the score for an option by clicking a cell in the column <b>score</b>',
' and pressing the <i>Save changes</i> button.'),
class="collapse",
id='help-ctt-change-rule', style='margin-top:1em;margin-bottom:1em;'),
dt_editable(dataTableOutput("item_rules"),columns=4),
style='display:inline-block;margin-left:2em;'),
id='col-ctt-item'),
style='padding:1em;'))),
value = 'ctt_pane'),
tabPanel('Subgroup analysis',
fluidRow(
column(6,tags$h3('Profile plot'),
eselectInput('prof_booklet',label='Booklet',choices=c('choose booklet_id' = ''), inline=TRUE, width='20%'),
eselectInput('prof_item',label='Item property',choices=c('choose item property' = ''), inline=TRUE, width='20%'),
eselectInput('prof_item_xvals',label='x axis value(s)',choices=c('choose x-axis' = ''), multiple=TRUE, inline=TRUE,width='28%'),
eselectInput('prof_person', label='Person property',choices=c('choose person property' = ''), inline=TRUE,width='20%'),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:-1.5em;',
`data-toggle`='collapse',`data-target`='#help-profile_plot'),
tags$div(getHelpList('profile_plot', package='dexter')$details,
class="collapse",
id='help-profile_plot', style='margin-top:1em;margin-bottom:1em;'),
plot_add_download_btn(plotOutput('prof_plot', height='600px',width='90%')),
class="col-side-left"
),
column(6,tags$h3('DIF'),
eselectInput('DIF_person', label='Person property',choices=c('choose person property' = ''), inline=TRUE, width='20%'),
eselectInput('DIF_item',label='Order axes by',choices=c('choose item property' = ''), inline=TRUE, width='20%'),
tags$a(tags$i(class="fa fa-question-circle"),class="btn btn-lg", style='margin-top:-1.5em;',
`data-toggle`='collapse',`data-target`='#help-DIF_test'),
tags$div(paste(getHelpList('DIF', package='dexter')$details,
getHelpList('plot.DIF_stats', package='dexter')$details),
class="collapse",
id='help-DIF_test', style='margin-top:1em;margin-bottom:1em;'),
tags$p(textOutput('DIF_text')),
plot_add_download_btn(plotOutput('DIF_plot', height='600px',width='90%'))
)),
value='DIF_pane'),
tabPanel('IRT analysis',
fluidRow(
column(
tags$h3('Fit enorm'),
tagAppendAttributes(textAreaInput('enorm_predicate',
label='data selection (optional)',
rows=1,
resize='none'),
class="predicate-with-help"),
uiOutput('enorm_design_connected'),
forceNetworkOutput('design_plot', height=450),
eselectInput('enorm_method',label='Method',choices = eval(formals(fit_enorm)$method), width = '30%', inline=TRUE),
#enumericInput('enorm_nIterations', label = 'nIterations',value=eval(formals(fit_enorm)$nIterations), width = '30%', inline=TRUE),
withBusyIndicatorUI(actionButton('go_fit_enorm','fit_enorm',class='btn btn-primary')),
htmlOutput('fit_enorm_result'),
width=3, class="col-side-left"
),
column(
tabsetPanel(type = 'tabs',id='enorm_tabs',
tabPanel('Abilities', value='ability',
# standard_errors weggelaten, op termijn zouden die in abplot meegenomen kunnen worden
wellPanel(generate_inputs(ability, omit=c('dataSrc','parms','standard_errors','use_draw','npv'),
inline=TRUE,width='120px'),
style='border:none;'),
tabsetPanel(type='tabs',
tabPanel('plots', abplotUI()
),
tabPanel('data',
tags$br(),
dataTableOutput('person_abilities'),
download_buttons('person_abilities')))),
tabPanel('Plausible values', value='plausible_values',
wellPanel(generate_inputs(plausible_values, omit=c('dataSrc','parms','use_draw'),
inline=TRUE,width='150px'),
style='border:none;'),
pvplotUI()),
tabPanel('Score-ability tables', value='ability_tables',
wellPanel(generate_inputs(ability_tables, omit=c('parms','design','standard_errors','npv'),
input_type=list(use_draw='numeric'),inline=TRUE, width='120px'),
style='border:none;'),
fluidRow(
column(6,
tags$h3('Score transformation table'),
tags$hr(),
tags$div(dataTableOutput('abl_tables'), download_buttons('abl_tables') ),style='max-width:600px;'),
column(6,
tags$h3('Test information functions'),
tags$hr(),
tags$div( # this div to give the hovering tooltip a reference point
plot_add_download_btn(
plotOutput('abl_tables_plot_ti', height='400px',
hover= hoverOpts("abl_tables_plot_ti_hov", delay = 200, delayType = "debounce"))),
uiOutput("abl_tables_plot_ti_hinf"), style='position:relative;'),
selectizeInput('abl_tables_plot_booklet', 'Choose booklets to plot', c(), multiple = TRUE),
style="padding-left:4em;"))),
tabPanel('Items', value='enorm_items',
fluidRow(
column(5,
tags$h3('Parameters'),
tags$hr(),
hidden(multiToggleButton('coef_format', selected='norm',btn_width='3em',style='float:right;margin-top:-12px;',
choices=list(norm = tags$span(class="fa fa-list"),
denorm = tags$i(class="fa fa-columns")))),
tags$div(
dataTableOutput('enorm_coef'),
download_buttons('enorm_coef')),
style="padding-left:2em;"),
column(7,
tags$h3('Item fit'),
tags$hr(),
enumericInput("enorm_slider_nbins","number of ability groups",min=2,step=1,value=5,inline=TRUE,width='5em'),
plotSlider('enorm_slider',height='600px',width='95%'),style="padding-right:8em;")
))),
width=9)),
value = 'enorm_pane'
),
tabPanel('Help',
tags$div(
tags$div(
includeHTML(system.file("extdata", "manual.html", package = "dextergui", mustWork = TRUE)),
class='help-page'),
class='help-page-outer'))
))
}
Try the dextergui package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.