| Title: | Test Your Personality |
|---|---|
| Description: | An R-package-version of an open online science-based personality test from <https://openpsychometrics.org/tests/IPIP-BFFM/>, providing a better-designed interface and a more detailed report. The core command launch_test() opens a personality test in your browser, and generates a report after you click "Submit". In this report, your results are compared with other people's, to show what these results mean. Other people's data is from <https://openpsychometrics.org/_rawdata/BIG5.zip>. |
| Authors: | Renfei Mao |
| Maintainer: | Renfei Mao <[email protected]> |
| License: | GPL-2 |
| Version: | 1.0.1 |
| Built: | 2024-11-02 03:12:03 UTC |
| Source: | https://github.com/flujoo/personr |
Launch a personality test and get a report.
launch_test(path)launch_test(path)
path |
A string to set where to store your test report. |
The test is called "Big Five Personality Test" and is from https://openpsychometrics.org/tests/IPIP-BFFM/.
After you finish and submit your responses, a report will generate in your path.
No return value, a Shiny app is launched, and two files named "report.Rmd" and "report.html" generates in your path after you click the "Submit" button in the app.
report for generating report
without calling launch_test.
if (interactive()) { launch_test(path = tempdir()) }if (interactive()) { launch_test(path = tempdir()) }
Generate a personality test report without launching the test.
report(responses, path)report(responses, path)
responses |
A numeric vector to represent your answers to the questions in the test. |
path |
A string to set where to store your test report. |
report will be automatically called after
you call launch_test and submit your responses.
The report summaries your test results, and compares them to other people's to tell you what the results mean.
No return value, two files named "report.Rmd" and "report.html" generates in your path.
launch_test to launch the personality test.
if (interactive()) { # a numeric vector representing your responses to the test rs <- rep(1, 50) # generate report path <- tempdir() report(rs, path) }if (interactive()) { # a numeric vector representing your responses to the test rs <- rep(1, 50) # generate report path <- tempdir() report(rs, path) }