This is an introduction to a package that allows you to edit data interactively in RStudio. Note that by setting options, you can use the data entry methods “Choose a day from the calendar”, “Choose from a drop-down list”, “Check box”, and “Password expression”. The “This is also possible” section at the end of the Example command introduces these methods.
Edited data can be saved to CSV files or variables.
Package version is 0.1.4. Checked with R version 4.2.2.
Install Package
Run the following command.
#Install Package
install.packages("DataEditR")
Example
See the command and package help for details.
#Loading the library
library("DataEditR")
###Creating Data#####
#Install the tidyverse package if it is not already there
if(!require("tidyverse", quietly = TRUE)){
install.packages("tidyverse");require("tidyverse")
}
set.seed(1234)
n <- 30
TestData <- tibble(Group = sample(paste0("Group", 1:4), n,
replace = TRUE),
X_num_Data = sample(c(1:50), n, replace = TRUE),
Y_num_Data = sample(c(51:100), n, replace = TRUE),
Chr_Data = sample(c("か", "ら", "だ", "に",
"い", "い", "も", "の"),
n, replace = TRUE),
Fct_Data = factor(sample(c("か", "ら", "だ", "に",
"い", "い", "も", "の"),
n, replace = TRUE)))
#Check
TestData
# A tibble: 30 x 5
Group X_num_Data Y_num_Data Chr_Data Fct_Data
<chr> <int> <int> <chr> <fct>
1 Group4 3 67 の に
2 Group4 36 58 に に
3 Group2 31 92 か だ
4 Group2 29 82 に ら
5 Group1 5 97 も に
6 Group4 2 72 に い
7 Group3 47 85 だ ら
8 Group1 40 91 か い
9 Group1 20 66 い い
10 Group2 48 53 い か
# ... with 20 more rows
#######
#Edit data interactively in Rstudio: data_edit command
#Changed the first line of Chr_Data to "AAAAAAA"
#After changing data, click "synchronise" in the dialog
#Save the results in CSV in the working folder: save_as option
data_edit(TestData, save_as = "TestData.csv",
write_fun = "write.table",
write_args = list(sep = ",",
row.names = FALSE)) -> ChangeTestData
#Check
tibble(ChangeTestData)
# A tibble: 30 x 5
Group X_num_Data Y_num_Data Chr_Data Fct_Data
<chr> <int> <int> <chr> <chr>
1 Group4 3 67 AAAAAAA に
2 Group4 36 58 に に
3 Group2 31 92 か だ
4 Group2 29 82 に ら
5 Group1 5 97 も に
6 Group4 2 72 に い
7 Group3 47 85 だ ら
8 Group1 40 91 か い
9 Group1 20 66 い い
10 Group2 48 53 い か
# ... with 20 more rows
###This is also possible#####
EditData <- tibble("Date" = rep("", 10),
"DropList" = rep("", 10),
"Checkbox" = rep("", 10),
"Password" = rep("", 10))
data_edit(EditData,
col_options = list(Date = "date",
DropList = c("からだに", "いいもの"),
Checkbox = c(TRUE,FALSE),
Password = "password"),
col_stretch = TRUE)
Dialog displayed after executing “This is also possible”
I hope this makes your analysis a little easier !!
