Running examples in 'traitdataform-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mutate.traitdata
> ### Title: Mutate traits within a traitdata object.
> ### Aliases: mutate.traitdata
> 
> ### ** Examples
> 
> 
> ## Not run: 
> ##D pulldata("arthropodtraits")
> ##D dataset3 <- as.traitdata(arthropodtraits,
> ##D                          taxa = "SpeciesID",
> ##D                          traits = c("Body_Size", "Dispersal_ability",
> ##D                             "Feeding_guild","Feeding_guild_short",
> ##D                             "Feeding_mode", "Feeding_specialization",
> ##D                             "Feeding_tissue", "Feeding_plant_part",
> ##D                             "Endophagous_lifestyle", "Stratum_use",
> ##D                             "Stratum_use_short"),
> ##D                          units = c(Body_Size = "mm", Dispersal_ability = "unitless"),
> ##D                          keep = c(measurementRemark = "Remark"),
> ##D                          metadata = list(
> ##D                             license = "http://creativecommons.org/publicdomain/zero/1.0/"
> ##D                             )
> ##D )
> ##D head(dataset3)
> ##D 
> ##D updated <- mutate.traitdata(dataset3, predator = Feeding_guild == "c" )
> ##D 
> ##D head(updated[updated$traitName == "predator",])
> ##D 
> ##D levels(updated$traitName)
> ## End(Not run)
> 
> ##
> 
> pulldata("heteroptera_raw")
Warning in read.table(file = file, header = header, sep = sep, quote = quote,  :
  invalid input found on input connection 'https://ndownloader.figshare.com/files/5633883'
Warning in read.table(file = file, header = header, sep = sep, quote = quote,  :
  incomplete final line found by readTableHeader on 'https://ndownloader.figshare.com/files/5633883'
The dataset 'heteroptera_raw' is now available for use! 

> dataset2 <- as.traitdata(heteroptera_raw,
+                         traits = c("Body_length", "Body_width", "Body_height", "Thorax_length",
+                                   "Thorax_width", "Head_width", "Eye_width", "Antenna_Seg1",
+                                    "Antenna_Seg2", "Antenna_Seg3", "Antenna_Seg4", "Antenna_Seg5",
+                                    "Front.Tibia_length", "Mid.Tibia_length", "Hind.Tibia_length",
+                                    "Front.Femur_length", "Hind.Femur_length", "Front.Femur_width",
+                                    "Hind.Femur_width", "Rostrum_length", "Rostrum_width",
+                                    "Wing_length", "Wing_width"),
+                         taxa = "SpeciesID",
+                         occurrences = "ID"
+ )
Input is taken to be an occurrence table/an observation -- trait matrix 
(i.e. with individual specimens per row and multiple trait measurements in columns). 
If this is not the case, please provide parameters! 
Error in `$<-.data.frame`(`*tmp*`, "measurementID", value = 2:1) : 
  replacement has 2 rows, data has 0
Calls: as.traitdata -> $<- -> $<-.data.frame
Execution halted