Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Sign in
Toggle navigation
H
Harmonize_Scripts
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Uncover
Harmonize_Scripts
Commits
52f4db3d
Commit
52f4db3d
authored
Feb 14, 2023
by
Pepe Márquez Romero
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
empezando a modificar el script remoto
parent
011cb357
Changes
3
Expand all
Show whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
333 additions
and
356 deletions
+333
-356
connection_parameters.R
connection_parameters.R
+206
-206
valid_variables_script.R
valid_variables_script.R
+123
-146
valid_variables_script_local.R
valid_variables_script_local.R
+4
-4
No files found.
connection_parameters.R
View file @
52f4db3d
...
@@ -73,7 +73,7 @@ resource_names <- c(
...
@@ -73,7 +73,7 @@ resource_names <- c(
"CIPH_numeric_derivated"
,
"CIPH_numeric_derivated"
,
"20220719_HarmonisedUMFIasi"
,
"20220719_HarmonisedUMFIasi"
,
"SMUC_resource"
,
"SMUC_resource"
,
"20220
720_HarmonisedHM"
,
"20220
919_FiHM"
,
"Resource_derived"
,
"Resource_derived"
,
"IISFJD_Harmonized_1"
,
"IISFJD_Harmonized_1"
,
"IPC_Harmonized"
,
"IPC_Harmonized"
,
...
...
valid_variables_script.R
View file @
52f4db3d
This diff is collapsed.
Click to expand it.
valid_variables_script_local.R
View file @
52f4db3d
...
@@ -120,8 +120,8 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
...
@@ -120,8 +120,8 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
str_res
<-
"No failing values"
str_res
<-
"No failing values"
else
{
else
{
failing_values
<-
failing_values
[
!
is.na
(
failing_values
)]
failing_values
<-
failing_values
[
!
is.na
(
failing_values
)]
#
str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
str_res
<-
paste
(
colname
,
paste
(
unlist
(
failing_values
)
,
collapse
=
" "
))
str_res
<-
paste
(
colname
,
collapse
=
" "
)
#
str_res <- paste(colname , collapse =" ")
str_res
<-
paste
(
str_res
,
"should be in range"
,
range_as_str
,
"(continuous)"
,
sep
=
" "
)
str_res
<-
paste
(
str_res
,
"should be in range"
,
range_as_str
,
"(continuous)"
,
sep
=
" "
)
}
}
...
@@ -140,8 +140,8 @@ check_valid_values_binary <- function(colname , column){
...
@@ -140,8 +140,8 @@ check_valid_values_binary <- function(colname , column){
else
{
else
{
range_as_str
<-
"0-1 (binary)"
range_as_str
<-
"0-1 (binary)"
failing_values
<-
failing_values
[
!
is.na
(
failing_values
)]
failing_values
<-
failing_values
[
!
is.na
(
failing_values
)]
#
str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
str_res
<-
paste
(
colname
,
paste
(
unlist
(
failing_values
)
,
collapse
=
" "
))
str_res
<-
paste
(
colname
,
collapse
=
" "
)
#
str_res <- paste(colname , collapse =" ")
str_res
<-
paste
(
str_res
,
"should be in range"
,
range_as_str
,
sep
=
" "
)
str_res
<-
paste
(
str_res
,
"should be in range"
,
range_as_str
,
sep
=
" "
)
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment