Merge pull request #117 from abennici/#107

#107
r-geoflow · Feb 10, 2021 · 5f8de8a · 5f8de8a
2 parents 97419bb + b25ab4a
commit 5f8de8a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/geoflow_handler_contact.R b/R/geoflow_handler_contact.R
@@ -25,7 +25,7 @@ handle_contacts_df <- function(config, source){
     contact$setCountry(source_contact[,"Country"])
     contact$setVoice(source_contact[,"Voice"])
     contact$setFacsimile(source_contact[,"Facsimile"])
-    contact$setWebsiteUrl(source_contact[,"WebsiteUrl"])
+    if(!is.na(source_contact[,"WebsiteUrl"])& source_contact[,"WebsiteUrl"]!="") contact$setWebsiteUrl(source_contact[,"WebsiteUrl"])
     contact$setWebsiteName(source_contact[,"WebsiteName"])
 
     srcId <- sanitize_str(source_contact[,"Identifier"])

diff --git a/R/geoflow_handler_entity.R b/R/geoflow_handler_entity.R
@@ -83,7 +83,7 @@ handle_entities_df <- function(config, source){
 
     #title
     entity$setTitle(source_entity[,"Title"])
-    
+
     #description
     src_description <- sanitize_str(source_entity[,"Description"])
     allowedDescKeys <- entity$getAllowedKeyValuesFor("descriptions")
@@ -265,7 +265,7 @@ handle_entities_gsheet <- function(config, source){
 handle_entities_csv <- function(config, source){
 
   #read csv TODO -> options management: sep, encoding etc
-  source <- read.csv(source)
+  source <- read.csv(source,stringsAsFactors = F)
 
   #apply generic handler
   entities <- handle_entities_df(config, source)